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UPDHOST 

UPDDTI 

UPDSET 

UPDREC 

UPDFLD 

UPDDBN 

UPDDT 

MODACKW 

MODECKW 

MODRCKW 

DELKW 


DOCGROUP  PS41100  Module  Documentation 
NAME:  RETACKW 

PURPOSE:  POPULATES  KEYWORD  TABLE  FOR  ATTRIBUTE  CLASS  KEYWORDS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  RETACKW 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


THIS  ROUTINE  POPULATES  THE  KEYWORD  TABLE  WITH  ATTRIBUTE 
CLASS  KEYWORDS. 

ARGUMENTS : 


MODEL-NO  DSPLY [ S9 ( 9 ) ] 

KW-TABLE  RECRD 


INCLUDE  FILES: 


3-900 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  RETATTR 

PURPOSE:  RETRIEVE  INFORMATION  ABOUT  OWNED  ATTRIBUTE. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  RETATTR 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  RETATTR  WILL  RETRIEVE  INFORMATION  ABOUT  OWNED 
ATTRIBUTE . 

A)  ENTITY* IT  IS  OWNED  BY,  EC-NO 

B)  ATTRIUBTE  USE  (ROLE)  NAME  AND  NUMBER 

C)  ATTRIBUTE  NUMBER 


ARGUMENTS : 


AC-NAME 

AC-NO 

EC-NO 

TAG-NO 

TAG-NAME 

RET-STATUS 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


DSPLY[X(30) ] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY[S9 (9)  ) 
DSPLY[X(30)  ] 
DSPLY[X(5)  ] 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  RETDT 

PURPOSE:  RETRIEVE  ALL  INFORMATION  FOR  A  GIVEN  DATA  TYPE  NAME 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  RETDT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


RETRIEVE  THE  TYPE,  SIZE,  NO.  OF  DECIMALS 
DATA-TYPE-IND  AND  DATA-TYPE-NO  (USDF-DT-NO) 
FOR  A  GIVEN  DATA-TYPE  NAME. 


ARGUMENTS : 


DOM-NO 

DATA-TYPE -NAME 

TYPE-ID 

MAX-SIZE 

NO-OF-DEC 

DATA-TYPE-IND 

USDF-DT-NO 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY [ X ( 3  0 )  ] 
DSPLY [ X ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [X (4)  ] 
DSPLY [S9  (9)  ] 
DSPLY [X( 5)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  RETECKW 

PURPOSE:  POPULATES  KEYWORD  TABLE  FOR  ENTITY  CLASS  KEYWORDS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  RETECKW 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  POPULATES  THE  KEYWORD  TABLE  WITH  ENTITY  CLASS 
KEYWORDS . 


ARGUMENTS : 


MODEL-NO 

KW-TABLE 


DSPLY[S9 (9)  ] 
RECRD 


INCLUDE  FILES: 


SRVRET 

ERRCDM 

KWDTBL 

ERRPRO 


ROUTINES  CALLED: 


UERROR 

ERRPRO 
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DOCGROUP  PS41100  Module  Documentation 
NAME*  RETRAC1 

PURPOSE:  DETERMINES  IF  ANY  ATTRIBUTE  CLASS  NAMES  MATCH  BETWEEN 
MODELS 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  RETRAC1 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  DETERMINES  AND  REPORTS  TO  THE  USER  IF  ANY 
MATCHES  IN  ATTRIBUTE  CLASS  NAMES  ARE  FOUND  WITHIN  2  MODELS. 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ARGUMENTS : 


MODEL-NOl 

M0DEL-N02 


ROUTINES  CALLED: 


VERATT 

ADDPARM 

ERRPRO 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  RETRAC2 

PURPOSE:  DETERMINES  IF  A  PRIMARY  ATTRIBUTE  CLASS  NAME  MATCHES 
BETWEEN  MODELS 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  RETRAC2 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  DETERMINES  AND  REPORTS  TO  THE  USER  IF  A 
MATCH  IN  PRIMARY  ATTRIBUTE  CLASS  NAMES  ARE  FOUND  WITHIN  2 
MODELS . 


ARGUMENTS : 


MODEL-NOl  DSPLY [ S9 ( 9 ) ] 

M0DEL-N02  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 


VERATTP 

ADDPARM 

ERRPRO 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  RETRACP 

PURPOSE:  SELECT  ATTRIBUTE  CLASS  NAME  USING  THE  ATTRIBUTE  CLASS 
NUMBER 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  RETRACP 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SELECT  THE  ATTRIBUTE  CLASS  NAME  GIVEN  THE  ATTRIBUTE  CLASS 
NUMBER 

AND  NAME  TYPE. 


DSPLY[S9 (9) ] 
DSPLY [ X ( 8 )  ] 
DSPLY [ X ( 3  0 )  ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ARGUMENTS : 


AC-NO 

AC-NAME-TYPE 

AC-NAME 


ROUTINES  CALLED: 


ERRPRO 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  RETRCKW 

PURPOSE:  POPULATES  THE  KEYWORD  CDM  TABLE  FOR  RELATION  CLASS 
KEYWORDS 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  RETRCKW 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  POPULATES  THE  KEYWORD  TABLE  WITH  RELATION  CLASS 
KEYWORDS 

MODIFIED  5/11/89:  TO  HANDLE  BOTH  CATEGORY  AND  LINK  RELATIONS 


ARGUMENTS : 


DSPLY[S9 (9) ] 
RE  CRD 


INCLUDE  FILES: 


SRVRET 

KWDTBL 

ERRPRO 


EC-NO 

KW-TABLE 


ROUTINES  CALLED: 
ERRPRO 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  RETREC1 

PURPOSE:  COMPARES  ENTITY  CLASS  NAMES  FOR  TWO  MODELS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  RETREC1 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  DETERMINES  AND  REPORTS  TO  THE  USER  IF  ANY 
MATCHES  IN  ENTITY  CLASS  NAMES  ARE  FOUND  WITHIN  TWO  MODELS. 


ARGUMENTS : 


DSPLY [ S9 (9 ) ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


MODEL-NO 1 
MODEL-N02 


ROUTINES  CALLED: 


VERENT 

ADDPARM 

ERRPRO 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  RETREC2 

PURPOSE:  COMPARES  PRIMARY  ENTITY  CLASS  NAMES  FOR  TWO  MODELS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  RETREC2 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  DETERMINES  AND  REPORTS  TO  THE  USER  IF  A 
MATCH  IN  PRIMARY  ENTITY  CLASS  NAMES  ARE  FOUND  WITHIN  TWO 
MODELS . 


ARGUMENTS : 


MODEL-NO 1  DSPLY [ S9 (9 ) ] 

MODEL-N02  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 


VERENTP 

ADDPARM 

ERRPRO 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  RETRECP 

PURPOSE:  RET I EVE  AN  ENTITY  CLASS  NAME  FOR  A  GIVEN  NO.  AND  NAME 
TYPE 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  RETRECP 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SELECT  THE  ENTITY  CLASS  NAME  GIVEN  THE  ENTITY  CLASS  NUMBER 
AND  NAME  TYPE. 


ARGUMENTS : 


EC-NO 

EC-NAME-TYPE 

EC-NAME 


DSPLY[S9 (9) ] 
DSPLY[X(8) ] 
DSPLYfX ( 30) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-910 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 
NAME:  RETRFLD 

PURPOSE:  RETREIVE  ALL  FIELDS  OF  A  RECORD  INTO  A  TABLE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  RETRFLD 

SOURCE  FILE  TYPE:  PCO 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


THIS  ROUTINE  ASSUMES  THE  DF-TABLE  HAS 
BEEN  INITIALISED.  THE  INPUT  ARGUMENTS 
DB-ID  AND  RT-ID  SHOULD  BE  ENTERED  INTO 
THE  TABLE. 

ALL  THE  FIELDS  BELONGING  IN  THE  RECORD 
ARE  RETRIEVED  INTO  THE  TABLE. 

ZEROES  IN  DATA-TYPE-NAME  INDICATE  NULLS. 

MOD  2/89  -  REPLACE  ORACLE  STRUCTURED  TREE  QUERY  WITH 
ITERATIVE  FETCH  PROCESS  FOLLOWED  BY  A  SORT  INTO 
HIERARCHICAL  ORDER.  ALTHOUGH  FOR  THE  GE  REHOST 
TO  INGRES,  IT  MAKES  THE  ROUTINE  SQL-STANDARD. 

ARGUMENTS : 


TDFT-TABLE  RECRD 

RET-STATUS  DSPLY [ X ( 5 ) ] 

INCLUDE  FILES: 


ERRCDM 

EOD 

TDFTBL 

ERRPRO 

ROUTINES  CALLED: 


UERROR 

SQLSCA 

SQLBS1 

SQLSCH 

SQLSCC 

SQLTOC 

SQLOSQ 

SQLADR 

SQLAB1 

SQLEXE 

SQLCLS 

SQLAD1 

SQLFCH 

ERRPRO 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  RETRNGA 

PURPOSE:  RETRIEVE  ALL  RANGES  AND  PERFORM  EDIT  CHECKS  ON  THEM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  RETRNGA 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


RETRIEVE  THE  RANGES  OF  A  CERTAIN  DOMAIN 
ROW  BY  ROW  VERIFYING  THE  BEGINNING  AND 
ENDING  VALUE  EACH  TIME  AGAINST  STANDARD 
DATA  TYPE  INFORMATION. 


ARGUMENTS : 


DOM-NO 

TYPE-ID 

MAX-SIZE 

NO-OF-DEC 

ERR-CNTR 

RET-COUNT 

RET-STATUS 


DSPLY[S9 (9)  ] 
DSPLY[X] 
DSPLY [S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [S9  (9) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


RNGVERF 

ERRPRO 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  RETSTD 

PURPOSE:  RETRIEVE  EDITTING  INFORMATION  FROM  THE  STANDARD  DATA 
TYPE 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  RETSTD 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


RETRIEVE  THE  TYPE,  SIZE  AND  NO.  OF  DECIMALS 
FOR  THE  STANDARD  DATA  TYPE  OF  A 
DOMAIN  NUMBER 


ARGUMENTS : 


DOM-NO  DSPLY [ S9 ( 9 ) ] 

TYPE- ID  DSPLY [X] 

MAX-SIZE  DSPLY [S9 (9) ] 

NO-OF-DEC  DSPLY [S9 (9) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 

INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  RETVALA 

PURPOSE:  RETRIEVE  THE  LEGAL  VALUES  OF  A  DOMAIN  AND  EDIT  CHECK 
THEM 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  RETVALA 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


RETRIEVE  THE  VALUES  OF  A  CERTAIN  DOMAIN 
ROW  BY  ROW  VERIFYING  THE  ACTUAL  VALUE 
EACH  TIME  AGAINST  STANDARD  DATA  TYPE 
INFORMATION. 

ARGUMENTS : 


DOM-NO 

TYPE-ID 

MAX-SIZE 

NO-OF-DEC 

ERR-CNTR 

RET-COUNT 

RET-STATUS 

INCLUDE  FILES: 


DSPLY[S9 (9) ] 
DSPLY[X] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY [X( 5) ] 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


VALVERF 

ERRPRO 
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DOCGROUP  PS41100  Nodule  Documentation 
NAME:  RETVMOD 

PURPOSE:  RETRIEVE  VERIF.  MODULE  NAME  FOR  A  GIVEN  DOMAIN  NUMBER 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  RETVMOD 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


RETRIEVE  THE  MODULE  NAME  FROM  THE 
VERI F_MODULE  TABLE  FOR  A  SPECIFIC 
DOMAIN  NUMBER 

ARGUMENTS : 


DOM-NO  DSPLY[S9 (9) ] 
MOD-NAME  DSPLY [X ( 10 ) ] 
RET-STATUS  DSPLY [ X ( 5 ) ] 

INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  RNGVERF 

PURPOSE:  PERFORM  EDIT  CHECKS  ON  RANGES  PASSED  TO  THIS  ROUTINE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  RNGVERF 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


-  PERFORM  CERTAIN  EDITS  ON  THE  DOMAIN  RANGES  PASSED  TO  IT 


ARGUMENTS : 


DOM-RANGE 

TYPE-ID 

MAX-SIZE 

NO-OF-DEC 

NDDL-STATUS 


RECRD 
DSPLY [X] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9)  ] 
DSPLY [ S9 ( 9 )  ] 
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DOCGROUP  PS41100  Module  Documentation 


NAME  *  RRCKW2 

PURPOSE:  COMPARES  RELATION  CLASS  KEY  WORDS  FOR  TWO  MODELS 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  RRCKW2 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  DOES  A  SEQUENTIAL  SEARCH  COMPARING  RELATION 
CLASS  KEYWORDS  OF  TWO  MODELS  TO  FIND  A  MATCH.  IF  A  MATCH 
IS  FOUND,  IT  IS  REPORTED  TO  THE  USER. 

MODIFIED  5/11/89:  TO  HANDLE  BOTH  CATEGORY  AND  LINK  RELATIONS 


ARGUMENTS : 


EC-NO 

KW-TABLE 


DSPLY [S9 (9) ] 
RECRD 


INCLUDE  FILES: 


SRVRET 

KWDTBL 

ERRPRO 


ROUTINES  CALLED: 


GETRCNM 

ADDPARM 

GETCRNM 

ERRPRO 


3-917 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  SAVTAGS 

PURPOSE:  SAVE  ALGORITHM  TAGS  IN  A  TABLE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SAVTAGS 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


A  ONE  DIMENSION  TABLE  IS  USED  TO  HOLD 
TAG  NUMBERS  RETRIEVED  IN  ROUTINE  CMPTAG.C 


ARGUMENTS : 


TT-TABLE 
TAG -NO 
EC-NO 

RETURN-STATUS 


RECRD 

DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

TAGTBL 

ERRPRO 


ROUTINES  CALLED: 


UERROR 

ERRPRO 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  SEL1DSC 

PURPOSE:  SELECT  ONE  DESCRIPTION  TEXT 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SEL1DSC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


EXT 

DESCRIPTION  :-  This  routine  selects  the  description  text 
and  line  number  from  desc_text  using  description  type,  object 
type,  and  object  number. 


ARGUMENTS : 

OBJECT-TYPE 

DSPLY [X ( 30) ] 

FROM -OBJ -NO 

DSPLY[S9 (9) ] 

DESC-TYPE 

DSPLY [X (30) ] 

TO-OBJ-NO 

DSPLY [S9 (9) ] 

RET-COUNT 

DSPLY [S9 (9) ] 

RET-STATUS 

DSPLY [X (5) ] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

INSDESC 

UERROR 

ERRPRO 

3-919 
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NAME:  SELACNM 

PURPOSE:  RETRIEVE  THE  PRIMARY  NAME  FOR  ATTRIBUTE  CLASS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELACNM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


this  ndml  routine  selects  the  primary  attribute 
class  name  given  the  attribute  class  number 


ARGUMENTS : 


AC-NO 

AC-NAME-TYPE 

AC-NAME 


DSPLY [ S9 (9 ) ] 
DSPLY [ X ( 8 ) ] 
DSPLY [X( 30)  ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-920 
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NAME:  SELAIMP 

PURPOSE:  SELECTS  AND  DELETES  ALL  ROWS  FOR  A  GIVEN  TAG  AND 
PREF  • 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  SELAIMP 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  WILL  SELECT  ALL  ROWS  FOR  A  GIVEN 
TAG  AND  PREFERENCE  NUMBER  ,  DELETES  THE  ROW, 
CHECKS  TO  SEE  IF  THE  RETURNED  ENTITY  AND  RECORD 
NUMBER  IS  USED  FOR  ANY  OTHER  ATTRIBUTE  TO 
DATAFIELD/SET  MAPPING.  IF  NOT,  THE  ENTITY  TO 
RECORD  MAPPING  WILL  BE  DELETED. 


ARGUMENTS : 


TAG-NO 
PREF-NO 
RET -STATUS 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


DEL1AIM 

DEL1ERT 

UERROR 

ERRPRO 


DSPLY [S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY [X (5) ] 


3-921 
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NAME:  SELAIMT 

PURPOSE:  DETERMINES  ALL  MAPPINGS  FOR  A  GIVEN  TAG  AND  DROPS 
THEM 

LANGUAGE:  VAX- 11  COEOL 
SOURCE  FILE:  SELAIMT 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  WILL  SELECT  ALL  ROWS  FROM 
AUC_IS_MAPPING  FOR  A  GIVEN  TAG  NUMBER, 
DELETES  THE  ROW.  ALSO,  ROUTINE  DELETES 
THE  ENTITY  TO  RECORD  MAPPING  IF  NO  OTHER 
MAPPINGS  OF  UNIONS  AND  DEPENDENT  ON  THE 
EC  TO  RT  MAPPING. 


DSPLY[S9 (9) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


DEL1AIM 

DEL1ERT 

UERROR 

ERRPRO 


ARGUMENTS : 


TAG-NO 

RET-STATUS 


3-922 
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NAME:  SELAISM 

PURPOSE:  SELECTS  MAP  CLASS  AND  CATEGORY  FOR  A  SPECIFIC  TAG 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELAISM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


ARGUMENTS : 


TAG-NO 

PREF-NO 

MAP-CLASS 

MAP-CATEGORY 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY [ S9 (9) ] 
DSPLY [ X ( 30 )  ] 
DSPLY [X (8) ] 
DSPLY [X( 5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-923 
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NAME:  SELAPRM 

PURPOSE:  SELECT  AUC  PARM'S  AND  LOAD  INTO  TABLE 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  SELAPRM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DSPLY [X ( 10) ] 
DSPLY [X] 
DSPLY [S9 9] 

RE  CRD 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

AUPTBL 

ERRPRO 


ARGUMENTS : 


MOD-ID 

USE-CODE 

MOD-INST 

AUC-PARM-TABLE 


ROUTINES  CALLED: 


UERROR 

ERRPRO 


3-924 
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NAME:  SELCATC 

PURPOSE:  SELECT  A  CATEGORY  RELATION  TYPE  CODE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELCATC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  select  the  category_type_code  for 
category  relation. 


ARGUMENTS : 


RC-NO 

GEN-EC-NO 

CAT-TYPE-CODE 

RTN-STATUS 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY[X(10) ] 
DSPLY[S9  (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


specific 


3-925 
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NAME:  SELCATM 

PURPOSE:  SELECT  COUNT  OF  CATEGORY  MEMBERS  FOR  A  SPECIFIC 
CATEGORY  RELATION 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  SELCATM 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  select  the  count  of  category  members  for 
specific 

category  relation. 


ARGUMENTS : 


RC-NO 

CAT-MEM-COUNT 

RTN-STATUS 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY[S9(9)  ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  SELCRAD 

PURPOSE:  GET  DOMAIN  NO  OF  THE  DISCRIMINATING  ATTRIBUTE  FOR 
CATEGORY  RELATION 
LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  SELCRAD 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SELECTS  TAG  NUMBER  OF  THE  DISCRIMINATING  ATTRIBUTE  OF  A 
CATEGORY 

RELATION  AND  ITS  CORRESPONDING  DOMAIN  NUMBER 


ARGUMENTS : 


RC-NO 

GEN-EC-NO 

DOM-NO 

RTN-STATUS 


DSPLY [S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9)  ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-927 
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NAME:  SELCRDN 

PURPOSE:  SELECT  THE  CARDINALITY  VALUES  FOR  A  GIVEN  RELATION 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELCRDN 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


RC-NO 

IND-EC-NO 

DEP-EC-NO 

NO-IND-ENT 

MIN-NO-DEP-ENT 

MAX-NO-DEP-ENT 

RET-STATUS 


DSPLY [S9 (9)  ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9)  ] 
DSPLY [S9 (9)  ] 
DSPLY [S9 (9) ] 
DSPLY [X (5)  ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-928 
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NAME:  SELDB 

PURPOSE:  SELECTS  GIVEN  DBMS  AND  LOADS  DATABASE  TABLE  FOR  EACH 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELDB 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


DBMS -NAME 
DESC-FLAG 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

DBTBL 

ERRPRO 


ROUTINES  CALLED: 


UERROR 

GENDB 

ERRPRO 


DSPLY [X (30) ] 
DSPLY [X] 


3-929 
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NAME:  SELDBAA 

PURPOSE:  SELECT  ALL  AREAS  FOR  A  RECORD  AND  DB,  GENERATE  "IN 
.  AREAS"  FOR  EACH 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  SELDBAA 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  An  NDML  select  to  retrieve  all  areas  associated 
with  a  given  database  and  record.  Also  generates 
IN  AREAS  clause  of  DEFINE  RECORD  for  each  area. 


ARGUMENTS : 


DB-ID  DSPLY [S9 (9) ] 

RT-ID  DSPLY [X( 30) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ADDPAPM 

ERRPRO 


3-930 
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NAME:  SELDBMS 

PURPOSE:  SELECTS  DBMS  NAME  GIVEN  A  DATAFIELD  NO. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELDBMS 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


DF-NO 
DBMS -NAME 


DSPLY [S9 (9) ] 
DSPLY [X (30) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-931 
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NAME:  SELDBNM 

PURPOSE:  SELECT  THE  DATA  BASE  NAME  GIVEN  THE  DB  ID 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELDBNM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


DB-ID 

DB-NAME 


DSPLY[S9 (9) ] 
DSPLY[X (30)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-932 
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NAME:  SELDBRT 

PURPOSE:  RETURN  THE  RECORD  AND  DATABASE  GIVEN  THE  RECORD-NO 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELDBRT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DSPLY[S9 (9) ] 
DSPLY [ X ( 3  0 ) ] 
DSPLY [X (30)  ] 
DSPLY [X( 5)  ] 


ARGUMENTS : 


RT-NO 

DB-NAME 

RT-ID 

RET-STATUS 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-933 
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NAME:  SELDESC 

PURPOSE:  SELECT  DESCRIPTION  TEXT  FOR  A  GIVEN  DESC-TYPE,  OBJ 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  SELDESC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


EXT  FOR  A  GIVEN  DESC-TYPE,  OBJ 

DESCRIPTION  :-  This  routine  selects  all  of  the  description 
texts  and  line  numbers  given  the  object  type  and  object  number. 
The  routine  then  calls  INSDESC  to  insert  the  text  into  the  CDM. 


ARGUMENTS : 


OBJECT-TYPE 

FROM-OBJ-NO 

TO-OBJ-NO 

RET-COUNT 

RET-STATUS 


DSPLY [X ( 30) ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [S3  (9)  ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


INSDESC 

UERROR 

ERRPRO 


3-934 
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NAME:  SELDFPM 

PURPOSE:  SELECT  DF  PARM'S  AND  LOAD  TABLE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELDFPM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DSPLY [X ( 10) ] 
DSPLY [X] 
DSPLY [S99] 
RECRD 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

DFPTBL 

ERRPRO 


ARGUMENTS : 


MOD- ID 
USE-CODE 
MOD-INST 
DF-PARM-TABLE 


ROUTINES  CALLED: 


UERROR 

ERRPRO 


3-935 
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NAME:  SELDI 

PURPOSE:  SELECT  DATA  ITEMS  USED  IN  ALG  CONVERSION 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELDI 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CALLED  FROM  GENCMPX,  THIS  ROUTINE  WILL  SELECT 
DATA  ITEMS 


DSPLY[X(10) ] 
DSPLY[X] 
DSPLY [S99 ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ARGUMENTS : 


MOD-ID 

ALG-USE-CODE 

MOD-INST 

DI-NO 


ROUTINES  CALLED: 
ERRPRO 


3-936 
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NAME  *  SELDSTP 

PURPOSE:  SELECT  ALL  DESCRIPTION  TYPES  AND  GENERATES  NDDL 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELDSTP 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


YPES  AND  GENERATES  NDDL 
DESCRIPTION  : - 

THIS  ROUTINE  WILL  SELECT  ALL  DESCRIPTION  TYPES 
AVAILABLE  AND  CALL  A  SUBROUTINE  TO  PRODUCE  THE 
NDDL  COMMAND  TO  CREATE  THE  SPECIFIC  DESCRIPTION 
TYPE. 

YPE  . . . 

YPE  A 

{ 


ARGUMENTS : 


RTN-STATUS  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


WRTDSTP 

ERRPRO 


3-937 
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NAME:  SELECNM 

PURPOSE:  RETRIEVE  THE  PRIMARY  NAME  FOR  AN  ENTITY  CLASS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELECNM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


this  ndml  routine  selects  the  primary  entity 
class  name  given  the  entity  class  number 


ARGUMENTS : 


EC-NO 

EC-NAME-TYPE 

EC-NAME 


DSPLY[S9(9) ] 
DSPLY[X(8) ] 
DSPLY[X(30)  ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-938 
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NAME:  SELECXR 

PURPOSE:  SELECT  EC  NUMBER  AND  NAME  AND  LOAD  THEM  INTO  EC-TABLE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELECXR 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  WILL  SELECT  THE  EC-NO  AND 

EC-NAME  AND  WILL  LOAD  THEM  INTO  THE  ECTBL  AND  ASSIGN  EACH 
ENTITY  AN  UNIQUE  ABBREVIATION. 


ARGUMENTS : 


VIEW-NO 

EC-NAME-TABLE 

RET-STATUS 


DSPLY[S9 (9) ] 
RE  CRD 

DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ECTBL 

ERRPRO 


ROUTINES  CALLED: 


UERROR 

ERRPRO 


3-939 
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NAME:  SELHOST 

PURPOSE:  COPY  ALL  HOSTS  IN  THE  CDM  FOR  A  GIVEN  DBMS  AND  MODEL 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELHOST 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CALLED  FROM  CP Y DBMS  AND  SELDBMS ,  THIS 
ROUTINE  WILL  COPY 

ALL  HOST  ID'S  RETRIEVED  FROM  THE  CDM 
FOR  A  GIVEN  DBMS  AND  MODEL. 


DSPLY[X(30) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ARGUMENTS : 


DBMS -NAME 
RET-STATUS 


ROUTINES  CALLED: 


ADDPARM 

ERRPRO 


3-940 
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NAME :  SELHP 

PURPOSE:  NDML  TO  VERIFY  AN  EC_NO  IN  THE  HORIZONTAL  PART  TABLE 
FOR  DROP  ENTITY 
LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  SELHP 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


EC-NO 

NDDL-STATUS 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  SELHSTS 

PURPOSE:  COPY  ALL  HOSTS  IN  THE  CDM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELHSTS 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CALLED  FROM  CPYHST,  THIS  ROUTINE  WILL  COPY 
ALL  HOST  ID'S  RETRIEVED  FROM  THE  HOST  TABLE 
IN  THE  CDM. 


ARGUMENTS : 


DESC-FLAG 
PS B- FLAG 
HOST-COUNT 
RET-STATUS 


DSPLY[X] 
DSPLY [X] 
DSPLY[S9 (9) ] 
DSPLY [X( 5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


CPY1HST 

ERRPRO 


3-942 
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NAME:  SELIKEY 

PURPOSE:  RETRIEVE  ALL  INHERITED  KEYS  FOR  A  GIVEN  EC  AND  RC 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  SELIKEY 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  SELECTS  THE  INHERITED  KEYS  AND 
POPULATES  A  TABLE  GIVEN  THE  DEPENDENT  ENTITY 
AND  RELATION  CLASS  NUMBER. 


ARGUMENTS : 

MODEL-NO 

DSPLY [S9 (9) ] 

MODEL-NAME 

DSPLY [X (30) ] 

RC-NO 

DSPLY (S9 (9) ] 

DEP-EC-NO 

DSPLY [S9 (9) ] 

KC-LIST 

RECRD 

RETURN-STATUS 

DSPLY [S9 (9) ] 

INCLUDE  FILES: 

SRVRET 

KEYLIST 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 
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NAME:  S ELK CM 

PURPOSE:  SELECT  ALL  KEY  CLASS  MEMBERS  OF  A  KEY  CLASS. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELKCM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  ALL  KEY  CLASS  MEMBERS  OF  A  KEY  CLASS 

AND  GENERATE  THEIR  NAMES  AS  PART  OF  THE  ALTER  ENTITY  ADD  KEY 

KC-NAME  =  COMMAND. 


ARGUMENTS : 


KC-NO  DSPLY[S9 (9) ] 

COMMENT-FLAG  DSPLY [ X ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


VERITAG 

ADDPARM 

ERRPRO 


3-944 
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NAME:  SELKCMA 

PURPOSE:  SELECT  ALL  KEY  CLASSES  AN  ATTRIBUTE  IS  A  MEMBER  OF 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELKCMA 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  ALL  KEY  CLASSES  AN  ATTRIBUTE  IS  A 
MEMBER  OF  AND  POPULATE  THE  OLD  TAG  MIGRATION 
TABLE  WITH  THE  KC-NO'S. 


ARGUMENTS : 


TAG-NO-NEW  DSPLY [S9 ( 9 ) ] 

OLD-TAG-MIGRATION-TBL  RECRD 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

OLDTAGT 

ERRPRO 


ROUTINES  CALLED: 


UERROR 

ERRPRO 


3-945 
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NAME:  SELMODS 

PURPOSE:  COPY  ALL  USER  DEFINED  SOFTWARE  MODULES 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELMODS 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CALLED  FROM  CPYMODU,  THIS  ROUTINE  WILL  COPY 

ALL  MODULES  FROM  THE  SOFTWARE_MODULE 

TABLE  THAT  WERE  PREVIOUSLY  DEFINED  BY  NDDL  USER 


ARGUMENTS : 


STATUS -IND 

MODID-COUNT 

RET-STATUS 


DSPLY[X] 
DSPLY[S9 (9) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


CPY1SMD 

ERRPRO 
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NAME:  SEUfREC 

PURPOSE:  SELECTS  GIVEN  DATABASE/RECORD  MAP  TO  BE  COPIED 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELMREC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 

DB-NAME 

DSPLY [X (30) ] 

RT-ID 

DSPLY[X(30) ] 

DB-ID 

DSPLY [S9 (9) ] 

PART-FLAG 

DSPLY [X] 

UNION-FLAG 

DSPLY [X] 

MOD-TABLE 

RECRD 

HP-TABLE 

RECRD 

ECRT-TABLE 

RECRD 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

MDTBL 

HPTBL 

ECRTBL 

ERRPRO 

ROUTINES  CALLED: 

GENCRUN 

UWARN 

GENCRPT 

GENCREC 

GENMAP 

ERRPRO 

3-947 
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NAME:  SELMTAG 

PURPOSE:  SELECT  TAGS  THAT  HAVE  BEEN  MAPPED  GIVEN  EC  NO 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELMTAG 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DSPLY[S9 (9) ] 
DSPLY[X ( 30) ] 
RECRD 


ARGUMENTS : 


EC-NO 
EC -NAME 
MOD-TABLE 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

MDTBL 

ERRPRO 


ROUTINES  CALLED: 


GENMAP 

UWARN 

ERRPRO 
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NAME:  SELPARM 

PURPOSE:  RETRIEVE  PARAMETER  LIST  FROM  MODULE_PARAMETER 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELPARM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  ALL  PARAMETERS  FROM  MODULE  PARAMETER 
TABLE  GIVEN  THE  MODULE  NAME  (MOD-ID7  INTO 
AN  INTERNAL  PROGRAM  TABLE 


ARGUMENTS : 


MOD- ID 

PARM-TABLE 

FOUND 

RET-STATUS 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


DSPLY[X(10)  ] 
RECRD 

DSPLY[S9 (9) ] 
DSPLY[X(5) ] 


ROUTINES  CALLED: 


UERROR 

ERRPRO 
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NAME:  SELPEC 

PURPOSE:  SELECT  PRIMARY  ENTITY  NUMBER  GIVEN  AN  ENTITY  NAME 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELPEC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  NDML  select  to  retrieve  the  primary  ec-no 
for  a  given  ec-name.If  the  name-type  is  an 
alias  select  the  primary  name  where  the  ec-no 
equals  the  number  selected  above. 


ARGUMENTS : 


EC-NAME  DSPLY [ X ( 3  0 ) ] 

EC-NO  DSPLY [S9 (9)] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  SELRCNM 

PURPOSE:  RETRIEVE  ALL  RELATION  CLASSES  FOR  WHICH  AN  ENTITY  IS 
PART  OF 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  SELRCNM 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SELECTS  RELATIONS,  IF  ANY  EXIST,  GIVEN  THE  INDEPENDENT  AND 
DEPENDENT  ENTITY  NUMBERS.  RCNO-LIST  TABLE  IS  THEN  POPULATED 
WITH  THE  RELATION  CLASS  NUMBER  AND  NAME. 


DSPLY [S9 (9) ] 
DSPLY[S9 (9) ] 
RECRD 

DSPLY [S9 (9) ] 


SRVRET 

LISTREL 

ERRPRO 

ROUTINES  CALLED: 


UWARN 

ERRPRO 


ARGUMENTS : 


IND-EC-NO 

DEP-EC-NO 

LIST-OF-REL 

RTN-STATUS 


INCLUDE  FILES: 
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NAME:  SELRELC 

PURPOSE:  DETERMINE  HOW  MANY  RELATION  CLASSES  EXIST. 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  SELRELC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  DETERMINE  HOW  MANY  RELATION  CLASES  EXIST 
BETWEEN  A  SPECIFIED  INDEPENDENT  ENTITY  AND  DEPENDENT 
ENTITY . 


ARGUMENTS : 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ERRPRO 


IND-EC-NO-INPUT 

DEP-EC-NO-INPUT 

COUNTER 

RET-STATUS 
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NAME:  SELRELL 

PURPOSE:  DETERMINE  HOW  MANY  RELATION  CLASSES  EXIST. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELRELL 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  DETERMINE  HOW  MANY  RELATION  CLASES  EXIST 
BETWEEN  A  SPECIFIED  INDEPENDENT  ENTITY  AND  DEPENDENT 
ENTITY . 


ARGUMENTS : 


GEN-EC-NO-INPUT 

CAT-EC-NO-INPUT 

COUNTER 

RET-STATUS 


DSPLY[S9 (9)  ] 
DSPLY[S9 (9)  ] 
DSPLY[S9 (9) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  SELRMAP 

PURPOSE:  SELECT  SETS,  DB’S,  AND  RT'S  GIVEN  A  COMPLETE  RELATION 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELRMAP 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS: 


RC-NO 

SET-ID 

DB-NAME 

RT- ID-MEM 

IND-EC-NAME 

RC-NAME 

DEP-EC-NAME 


DSPLY[S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY[X(30)  ] 
DSPLY [X (30)  ] 
DSPLY [X (30) ] 
DSPLY[X(30) ] 
DSPLY (X ( 30) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


GENMREL 

UWARN 

ADDPARM 

ERRPRO 
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NAME:  SELRSET 

PURPOSE:  DELETE  ALL  ASSOCIATIONS  IN  THE  CDM  FOR  A  SET  BEING 
DROPPED 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  SELRSET 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  DELETES  THE  SET 
WHICH  IS  OWNED  BY  THE  RECORD  TO  BE  DROPPED. 

VERIFY  THAT  THE  SET  IS  NOT  MAPPED  BY  CHECKING 

1.  AUC_ST_MAPPING 

2.  RC_BASED_REC_SET 

IF  IT  IS  NOT  MAPPED,  DELETE  THE  SET  FROM 

1.  RECORD_SET 

2.  SET_TYPE_MEMBER 

THEN,  DELETE  THE  TEXTUAL  DESCRIPTION  AND 
ADD  THE  SET  NUMBER  TO  THE  REUSABLE  POOL. 


ARGUMENTS : 


DB-ID 
RT-ID 
MAP- FLAG 
RETURN-STATUS 


DSPLY[S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY[X] 
DSPLY [S9 (9)  ] 


INCLUDE  FILES: 


SRVRET 

UNIQENO 

ERRPRO 


ROUTINES  CALLED: 


VERRSUS 

UERROR 

FNDASA 

VERRCBS 

DELRST2 

DELSTM2 

DELTEXT 

ADDRNUM 

ERRPRO 
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NAME:  SELRTPM 

PURPOSE:  SELECT  RT  PARM'S  AND  LOAD  TABLE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELRTPM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DSPLY[X ( 10) ] 
DSPLY [X] 
DSPLY[S99] 
RECRD 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

RTPTBL 

ERRPRO 


ARGUMENTS : 


MOD-ID 
USE-CODE 
MOD- INST 
RT-PARM-TABLE 


ROUTINES  CALLED: 


UERROR 

ERRPRO 
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NAME:  SELSTM 

PURPOSE:  DELETES  ALL  MEMBERS  OF  THE  RECORD  TYPE  BEING  DROPPED 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELSTM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  DELETES  THE  OWNER  AND  ALL  THE  MEMBERS  OF  A  SET 
WHICH  IS  A  MEMBER  IN  THE  RECORD  TO  BE  DROPPED. 

VERIFY  THAT  THE  SET  IS  NOT  MAPPED  BY  CHECKING 

1.  AUC_ST_MAPPING 

2.  RC_BASED_REC_SET 

IF  IT  IS  NOT  MAPPED,  DELETE  THE  SET  FROM 

1.  RECORDSET 

2.  SET_TYPE_MEMBER 

THEN,  DELETE  THE  TEXTUAL  DESCRIPTION  AND 
ADD  THE  SET  NUMBER  TO  THE  REUSABLE  POOL. 


ARGUMENTS : 


DB-ID 
RT-ID 
MAP- FLAG 
RETURN-STATUS 


DSPLY[S9 (9) ] 
DSPLY [ X ( 3  0 ) ] 
DSPLY[X] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

UNIQENO 

ERRPRO 


ROUTINES  CALLED: 


VERRSUS 

UERROR 

FNDASA 

VERRCBS 

DELRST2 

DELSTM2 

DELTEXT 

ADDRNXJM 

ERRPRO 
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NAME:  SELTGEC 

PURPOSE:  SELECT  TAG  NAME  AND  EC  NUMBER  GIVEN  TAG  NUMBER 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELTGEC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  WILL  SELECT  A  TAG  NAME  AND  AN  EC 
NUMBER  GIVEN  A  TAG  NUMBER. 


ARGUMENTS : 


TAG-NO 

TAG-NAME 

EC-NO 

TAG-COUNT 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY [ X ( 3  0 ) ] 
DSPLY[S9 (9)  ] 
DSPLY [S9 (9) ] 
DSPLY [X( 5)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  SELUNIN 

PURPOSE:  RETRIEVE  RECORD  UNION  FOR  A  GIVEN  ENTITY 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELUNIN 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  ALL  INFORMATION  FROM  ECRTUD 
TABLE  FOR  A  GIVEN  ENTITY  NUMBER  AND 
RECORD  TYPE  NUMBER, 


ARGUMENTS : 

RT-NO 

DSPLY[S9 (9) ] 

EC-NO 

DSPLY[S9(9) ] 

DF-NO 

DSPLY[S9 (9) ] 

UNION-VALUE 

DSPLY [ X ( 3  0 ) ] 

COMPARISON-OP 

DSPLY[XX] 

FOUND 

DSPLY [S9 (9) ] 

RET-STATUS 

DSPLY [X (5) ] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 
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NAME:  SELURT 

PURPOSE:  RETRIEVE  ALL  UNIONS  FOR  A  GIVEN  ENTITY 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SELURT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  ALL  UNIONS  FROM  ECRTUD 
FOR  A  GIVEN  RECORD  TYPE  NUMBER 


ARGUMENTS : 


FUNC-TYPE 

RT-NO 

EC-NO 

DF-NO 

UNION-VALUE 

FOUND 

RET-STATUS 


DSPLY[X(5) ] 
DSPLY [S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [X( 30) ] 
DSPLY [S9 (9) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


DELUNIN 

UERROR 

DEL1ERT 

ECRTALL 

DRPRULE 

ERRPRO 
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NAME:  SETOUT 

PURPOSE:  SET  OUPUT  TO  FILE  OR  SCREEN 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SETOUT 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


this  routine  establishes  the  output  mode  for 
generated  nddl  commands  —  output  of  the  copy, 
combine,  merge,  check  and  compare  commands. 

Output  may  be  generated  to  a  user  defined  file  - 
a  new  file  or  appended  to  an  existing  file  or 
sent  to  the  screen. 

Retrieve  from  the  parser  lists  whether  output  is  to  be 
generated  on  file  (new  or  existing)  or  sent  to  the  screen. 
Establish  the  file  name  and  file  flag  as  global  variables. 


INCLUDE  FILES: 


LISTNOS 

ERRPRO 


ROUTINES  CALLED: 


CPFONE 

LOWUPP 

SETGLOB 

ERRPRO 
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NAME:  SMVIEW 

PURPOSE:  CREATE  ES-CS-MAPPING  FOR  USER  SPECIFIED  RETRIEVE  LIST 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  SMVIEW 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SMVIEW  CREATES  THE  ES  TO  CS  MAPPING  WHEN  THE  USER 
SPECIFIES  A  RETRIEVE  LIST.  DATA  ITEMS  ARE  STORED 
USING  THE  SAME  NAME  AS  THE  ATTRIBUTE  USE  CLASS 
(TAG)  SPECIFIED  ON  THE  RETRIEVE  LIST. 


DSPLY [S9 (9) ] 
DSPLY[S9 (9) ] 
RECRD 

DSPLY [X (5)  ] 


INCLUDE  FILES: 


ERRCDM 

UNIQENO 

VWRETR 

ROUTINES  CALLED: 


GETDOM 

UERROR 

VERSDT 

GETNNUM 

INSDI 

INSPDI 


ARGUMENTS : 


VIEW-NO 

EC-NO 

VIEW-RETRIEVE-LIST 

RET-STATUS 
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NAME:  STARTBL 

PURPOSE:  GET  TOP  NODES  OF  RC-DEPKC-LIST  TABLE 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  STARTBL 

SOURCE  FILE  TYPE:  PCO 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


MOVE  ALL  TOP  NODE  ENTRIES  INTO  THE  TABLE. 

Modified  9/4/89:  Changes  required  because  of  RC-DEPKC-LIST 
and  category  relations 


ARGUMENTS : 


MODEL-NO  DSPLY[S9 (9) ] 

RC-DEPKC-LIST 

DEP-EC-LIST 

RET-STATUS 


INCLUDE  FILES: 


KEY LI ST 

ERRCDM 

EOD 

RCDEPKC 

DEPECL 

ERRPRO 

ROUTINES  CALLED: 


SQLSCA 

SQLBS1 

SQLSCH 

SQLSCC 

SQLTOC 

SQLOSQ 

SQLADR 

SQLAB1 

SQLEXE 

UERROR 

SQLCLS 

SQLAD1 

SQLFCH 

BLDRCEC 

ERRPRO 
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NAME:  STRINS 

PURPOSE:  INSERT  DESCRIPTION  TEXT  INTO  THE  CDM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  STRINS 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


EXT  INTO  THE  CDM 

DESCRIPTION  :  STRINS  INSERTS  DESCRIPTION  TEXT  INTO  THE 
DATABASE 

WHICH  WAS  ENTERED  AS  PART  OF  THE  DESCRIBE  COMMAND 
TEXT. 

5/18/88:  CONVERT  FROM  COBOL  HLI  ROUTINE  TO  .PRC  ROUTINE 

INSERT  DESCRIPTION  TEXT  FROM  THE  USER-ENTERED  TEXT  STRING  1 
LINE  AT  A  TIME.  PRIOR  TO  THE  TEXT  INSERTION,  DELETE  ALL 
PREVIOUS  DESCRIPTION  TEXT,  IF  ANY. 

EXT,  IF  ANY 


ARGUMENTS : 


OBJ-TYPE 
DESC-TYPE 
OBJ -NO 
LINE -COUNT 


DSPLY[X (30) ] 
DS PLY [X (30) ] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9)  ) 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


DELTXT 

GETNCHR 

UERROR 

ERRPRO 
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NAME:  STRQCRF 

PURPOSE:  PERFORMS  SUBROUTINE  CALLS  TO  STORE  QUALIFY  CRITERIA 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  STRQCRF 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  PERFORMS  THE  NECESSARY  SUBROUTINE 

CALLS  TO  STORE  THE  QUALIFICATION  CRITERIA  ITEMS  FOR  THE  'WHERE 

CLAUSE'  AS  PART  OF  CREATE  VIEW  COMMAND. 


ARGUMENTS : 


DSPLY[S9 (9) ] 
RECRD 
RE  CRD 

DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


CHKCDM 

ERRCDM 

BOOLST 

CSQCLST 

ERRPRO 

ROUTINES  CALLED: 


INSQCRF 

INSQCTG 

UERROR 

ERRPRO 


VIEW-NO 

CS-QUAL-CRITERI A-LIST 

BOOLEAN-LIST 

RET-STATUS 
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NAME:  TERATTR 

PURPOSE:  CREATE  AN  ATTRIBUTE,  ASSOCIATE  WITH  ENTITY,  ADD  KEY 
CLASSES 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  TERATTR 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  creates  an  attribute,  adds  as  owned  to 

an  entity  and  finally  adds  all  key  classes  for  the  entity 

class. 


ARGUMENTS : 


KC-LIST 

OLD-EC-NO 

OLD-AC-NO 

OLD-TAG-NO 

TAG-NAME 

DOM-NO 

TO-MODEL-NO 

NEW-EC-NO 

KW-FLAG 

ALIAS-FLAG 

DESC-FLAG 

KEY-FLAG 

NKEY-FLAG 


RE  CRD 

DSPLY [S9  (9) ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [X (30) ] 
DSPLY [S9 (9) ) 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [ 9 ] 
DSPLY [ 9 ] 
DSPLY [9] 
DSPLY [9] 
DSPLY [9] 


INCLUDE  FILES: 


UNIQENO 

KCLIST 

ERRPRO 


ROUTINES  CALLED: 


VERKCM 

BLDATT1 

UERROR 

VEROAC 

INSOAC 

GETNNUM 

INSAUC 

KEYLOOK 

ERRPRO 
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NAME:  TERDIR 

PURPOSE:  PROCESS  AN  INTER-MODEL,  SIMPLE,  DIRECTLY  COPY  ENTITY 
COMMAND. 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  TERDIR 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  GET  ALL  THE  EXCEPT  CLAUSE  INFORMATION  AND  CALL  AN 
EXISTING  ROUTINE  ICOPENT.COB  TO  INSERT  THE  ENTITY,  ATTRIBUTES 
AND  ASSOCIATED  KEYWORDS , ALIAS  AND  DESCRIPTIONS. 


ALLOWED  EXCEPTIONS:  DESCRIPTIONS,  ALIASES,  KEYWORDS,  KEYS 
ATTRIBUTES  AND  NONKEY-ATTRIBUTES 


ARGUMENTS : 


MODEL-NO 

TO-EC-NAME 

FROM-EC-NO 


DSPLY [S9 (9) ] 
DSPLY[X(30) ] 
DSPLY [S9 (9)  ] 


INCLUDE  FILES: 


LISTNOS 

ERRPRO 

ROUTINES  CALLED: 


CPFONE 
I COPENT 
ERRPRO 
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NAME:  TERKEY 

PURPOSE:  INSERT  A  KEY  CLASS  AND  A  KEY  CLASS  MEMBER 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  TERKEY 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


MODIFIED  7/24/89:  ADDED  LOGIC  TO  HANDLE  KEY-TYPE 


ARGUMENTS : 


NEW-EC-NO 

NEW-TAG-NO 

KC-NAME 

KC-NO 

KC-TYPE 

KC-LIST 

RETURN-STATUS 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [X ( 30)  ] 
DSPLY [S9 (9) ] 
DSPLY [X ( 10) ] 
RECRD 

DSPLY [S9 (9) ) 


INCLUDE  FILES: 


UNIQENO 

KCLIST 

ERRPRO 

ROUTINES  CALLED: 


GETNNUM 

UERROR 

INSKC 

INSKCM 

ERRPRO 
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NAME:  TERREL 

PURPOSE:  PROCESS  AN  INTER-MODEL  COPY  ENTITY  WITH  RELATION 
COMMAND 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  TERREL 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


-  Process  an  inter-mdoel  copy  entity  with 
relation  command. 

MODIFIED  7/27/89:  ADDED  LOGIC  TO  HANDLE  CATEGORY  RELATIONS 
ARGUMENTS : 


MODEL-NO 

TO-EC-NAME 

FROM-EC-NO 

CUR-MOD-NAME 

FROM-MOD-NO 

FROM-MOD-NAME 

INCLUDE  FILES: 


DSPLY[S9 (9) ] 
DSPLY[X(30) ] 
DSPLY [S9 (9) ] 
DSPLY [X (30) ] 
DSPLY [S9  (9) ] 
DSPLY [X( 30) ] 


CHKCDM 

DEPECL 

ERRCDM 

LISTNOS 

ERRPRO 

ROUTINES  CALLED: 


NFLOPEN 

ADDPARM 

CPFONE 

COPEKW 

COPVALI 

GENDESC 

COPOA 

BLKCL1 

DEPKCM 

DEPKCM1 

GENDEP 

GENCAT 

GENALTE 

GENIND 

GENGENC 

NFLCLOS 

VERENT 

SEIiRELC 

SELRELL 

LDECLST 
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CPFNXT 

UERROR 

UWARN 

ERRPRO 


DOCGROUP  PS41100  Module  Documentation 
NAME:  TERSIM 

PURPOSE:  PROCESS  AN  INTER-MODEL,  SIMPLE,  ON-FILE, COPY  ENTITY 
COMMAND. 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  TERSIM 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


ALLOWED  EXCEPTIONS:  DESCRIPTION,  ALIAS,  KEYWORD,  ATTRIBUTES 
KEYS,  NONKEYS 

ARGUMENTS : 


TO-MODEL-NO 

TO-EC-NAME 

FROM-EC-NO 

CUR-MOD-NAME 

FROM-MOD-NO 

INCLUDE  FILES: 


LISTNOS 

ERRPRO 

ROUTINES  CALLED: 


DSPLY[S9 (9) ] 
DSPLY[X(30) ] 
DSPLY[S9 (9) ] 
DSPLY[X (30) ] 
DSPLY[S9 (9) ] 


NFLOPEN 

ADDPARM 

CPFONE 

COPEKW 

GENDESC 

COPVALI 

COPOA 

GENKEY 

NFLCLOS 

UERROR 

ERRPRO 
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NAME  *  TERSTR 

PURPOSE:  PROCESS  AN  INTER-MODEL  ON  FILE  COPY  ENTITY  WITH 
STRUCTURE  COMMAND 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  TERSTR 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


MODIFIED  7/24/89: 
ALLOWED  EXCEPTIONS 


ADDED  LOGIC  TO  HANDLE  CATEGORY  RELATIONS 
:  DESCRIPTIONS,  KEYWORDS,  ALIASES,  KEYS, 


NONKEYS 

ATTRIBUTES,  DEPENDENT  ENTITIES. 


ARGUMENTS : 


TO-MODEL-NO 

TO-EC-NAME 

FROM-EC-NO 

CUR-MOD-NAME 

FROM-MOD-NO 

FROM-MOD-NAME 

INCLUDE  FILES: 


DSPLY[S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY [S9 (9) ] 
DSPLY [ X ( 3  0 ) ] 
DSPLY [S9 (9) ] 
DSPLY [X( 30) ] 


CHKCDM 

ERRCDM 

LISTNOS 

DEPECL 

RCDEPKC 

ERRPRO 

ROUTINES  CALLED: 


NFLOPEN 

ADDPARM 

CPFONE 

BLKCL1 

BLRCKC1 

COPEKW 

COPVALI 

GENDESC 

COPOA 

GENALTE 

DEPENTD 

DEPRELA 

NFLCLOS 

VERENT 

LDECLST 

DEPEC 

CPFNXT 

UERROR 

ERRPRO 
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NAME:  TRADIR 

PURPOSE:  PROCESS  AN  INTRA  MODEL-DIRECTLY  COPY  ENTITY  COMMAND. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  TRADIR 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


-  Will  get  all  except  clause  information. 

Insert  the  new  entity  into  the  database,  and  the  entity's 
keywords  (if  not  excepted),  descriptions (if  not  excepted), 
and  its  alias'  (if  not  excepted). 


ALLOWED  EXECEPTIONS:  KEYWORDS,  DESCRIPTIONS 


ARGUMENTS : 


FROM-EC-NO 

TO-MODEL-NO 

TO-EC-NAME 

INCLUDE  FILES: 


DSPLY [S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY [X( 30)  ] 


LISTNOS 

UNIQENO 

ERRPRO 


ROUTINES  CALLED: 


CPFONE 

GETNNUM 

INSEC 

INSECNM 

WRTECKW 

WRTDESC 

UERROR 

ERRPRO 
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NAME:  TRAFIL 

PURPOSE:  PROCESS  AN  INTRA-FILE  COPY  ENTITY  COMMAND. 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  TRAFIL 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  IT  WILL  GET  ALL  THE  EXCEPT  CLAUSE  INFORMATION 
(ALIAS,  KEYWORD,  DESCRIPTION,  ATTRIBUTE),  GENERATE  ON  A  FILE: 
CREATE  ENTITY  COMMANDS  (ITS  KEYWORDS,  ALIASES,  AND  DESCRIPTIONS 
UNLESS  EXCEPTED) ,  CREATE  ATTRIBUTE  COMMANDS  FOR  ALL  THE 
ENTITY ' S 

OWNED  ATTRIBUTES  (UNLESS  ATTRIBUTES  EXCEPTED) ,  ALL  THE  ATTRI¬ 
BUTES  KEYWORDS,  ALIASES,  AND  DESCRIPTIONS  (UNLESS  EXCEPTED), 

AND  ALTER  ENTITY  ADD  OWNED  ATTRIBUTE  (UNLESS  ATTRIBUTES 
EXCEPTED) . 


ALLOWED  EXCEPTIONS:  DESCRIPTIONS,  ALIASES,  KEYWORDS,  ATTRIBUTES 


ARGUMENTS : 


TO-MODEL-NO 

TO-EC-NAME 

FROM-EC-NO 

CUR-MOD-NAME 

FROM-MOD-NO 


DSPLY[S9 (9)  ] 
DSPLY[X(30)  ] 
DSPLY[S9 (9) ] 
DSPLY[X(30) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


LISTNOS 

ERRPRO 


ROUTINES  CALLED: 


NFLOPEN 

CPFONE 

ADDPARM 

COPEKW 

GENDESC 

COPVALI 

COPOA 

NFLCLOS 

UERROR 

ERRPRO 
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NAME:  TRMDDL 

PURPOSE:  TERMINATE  USE  OF  NDML  AND  NTM 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  TRMDDL 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  MODULE  WILL  BE  USED  TO  SIGNAL  END  OF  ANY 
NDML  COMMAND  PROCESSING.  IT  WILL  SEND  A  SPECIAL 
CALL  TO  THE  DRS,  SO  THAT  IT  CAN  NOTIFY  EACH 
ACTIVE  RP  TO  DO  A  CLOSE  AND  TERMINATE  ITS 
PROCESSING.  WHEN  THE  DRS  RETURNS  AFTER  EACH  RP  IS 
DONE,  NTM  SERVICE  TRMNAT  WILL  BE  CALLED  TO  STOP  THE 
RUN.  NOTE,  THE  USER  WILL  NOT  NEED  TO  USE  TRMNAT. 

MODIFICATION  HISTORY:-  R.  E.  STEWART  8/20/87 - 

CLONE  MADE  FOR  NDDL  CALLED  TRMDDL.  CHANGE  EXIT  PROGRAM 
TO  STOP  RUN. 


ARGUMENTS: 

TERMINATION-STATUS  DSPLY[X] 


INCLUDE  FILES: 


CHKCDM 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 


CDS  01 
ERRPRO 
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NAME:  UPD1PSB 

PURPOSE:  NDML  STATEMENT  TO  MODIFY  A  PSB  NAME  IN  THE  PSB  TABLE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  UPD1PSB 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  PRODUCES  A  MODIFY  NDML  STATEMENT  TO 
CHANGE  A  PSB  NAME  IN  THE  PSB  TABLE 


ARGUMENTS : 


PSB-NAME 

NEW-HOST-ID 

RET-STATUS 


DSPLY[X (8) ] 
DSPLYfX (30)  ] 
DSPLY [ X ( 5 )  ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  UPDAUCS 

PURPOSE:  PROGRAM  NAME  UPDAUCS 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  UPDAUCS 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  MODIFY  THE  AUC  VALUE  FOR  A  GIVEN 
AUC  TO  SET  MAP. 


ARGUMENTS : 


DB-ID 
SET- ID 
TAG-NO 

NEW-AUC-VALUE 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[X(30) ] 
DSPLY [S9 (9) ] 
DSPLY[X ( 30) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  UPDDT 

PURPOSE:  CONTROL  MODULE  FOR  RENAMING  A  DATA  TYPE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  UPDDT 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  IS  THE  CONTROLLING  MODULE 
FOR  RENAMING  A  DATA  TYPE.  CALLS  ARE  MADE  TO  UPDATE  C  ROUTINES 
TO  MODIFY  THE  HOST  ID  IN  4  CDM  TABLES: 

DATA_ITEM 

USER_DEF_DATA_TYPE 
DATA_FIELD 
MODULE  PARAMETER 


ARGUMENTS : 


NEW-ID  DSPLY[X(30) ] 
OLD-ID  DSPLY[X(30) ] 
NDDL-STATUS  DSPLY[S9(9)J 


ROUTINES  CALLED: 


UPDDDI 

UPDEDF 

UPDUDT 

UPDMP 

UERROR 
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NAME:  UPDDTI 

PURPOSE:  CONTROL  MODULE  FOR  RENAMING  A  DATA  ITEM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  UPDDTI 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  IS  THE  CONTROLLING  MODULE 
FOR  RENAMING  A  DATA  ITEM.  CALLS  ARE  MADE  TO  UPDATE  C  ROUTTNES 
TO  MODIFY  THE  DI  ID  IN  2  CDM  TABLES: 

DATAITEM 
PROJECT  DATA  ITEM 


ARGUMENTS : 


NEW-ID 

OLD-ID 

VIEW-NO 

NDDL-STATUS 


DSPLY[X ( 30) ] 
DSPLY[X ( 30) ] 
DSPLY[S9 (9)  ] 
DSPLY [S9 (9) ] 


ROUTINES  CALLED: 


UPDDI 

UERROR 
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NAME:  UPDFLD 

PURPOSE:  CONTROL  MODULE  FOR  RENAMING  A  DATA  FIELD 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  UPDFLD 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  IS  THE  CONTROLLING  MODULE 
FOR  RENAMING  A  FIELD.  CALLS  ARE  MADE  TO  UPDATE  C  ROUTINES 
TO  MODIFY  THE  DF_ID  IN  4  CDM  TABLES: 

DATA_FIELD 

DF_USED_AS_SET_LINKAGE 
PROJECT  DATA  FIELD 
ECRTUD 


ARGUMENTS : 


NEW-ID 

OLD-ID 

RT-ID 

DB-ID 

NDDL-STATUS 


DSPLY[X(30) ] 
DSPLY[X(30) ] 
DSPLY [X ( 30)  ) 
DSPLY [S9 (9)  ] 
DSPLY [S9 (9) ] 


ROUTINES  CALLED: 


UPDFDF 

UPDFDFU 

UPDFPDF 

UERROR 
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NAME:  UPDHOST 

PURPOSE:  CONTROL  MODULE  FOR  RENAMING  A  HOST 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  UPDHOST 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  IS  THE  CONTROLLING  MODULE 
FOR  RENAMING  A  HOST.  CALLS  ARE  MADE  TO  UPDATE  C  ROUTINES 
TO  MODIFY  THE  HOST  ID  IN  5  CDM  TABLES: 

HOST,  DATA_BASE,  DBMS_ON_HOST,  AND  PSB. 


ARGUMENTS : 


NEW- ID  DSPLY [X (30) ] 
OLD-ID  DSPLY [X (30) ] 
NDDL-STATUS  DSPLY [ S9 ( 9 ) ] 


ROUTINES  CALLED: 


UPDHST 

UPDDB 

UPDDBH 

UPDPSB 

UERROR 
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NAME:  UPDIND 

PURPOSE:  UPDATE  THE  DATA  TYPE  INDICATOR  OF  THE 
U S ER_DE F_DATA_T Y  PE  TABLE 
LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  UPDIND 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-UPDATE  THE  DATA  TYPE  INDICATOR 
OF  THE  USER  DEF  DATA  TYPE  TABLE 


DSPLY[X (4 ) ] 
DSPLY [X(30) ] 
DSPLY [S9 (9)  ] 


INCLUDE  FILES: 


SRVRET 

ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


ERRPRO 


ARGUMENTS : 


DATA-TYPE-IND 

DATA-TYPE-NAME 

NDDL-STATUS 
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NAME:  UPDREC 

PURPOSE:  CONTROL  MODULE  FOR  RENAMING  A  RECORD  TYPE 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  UPDREC 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  IS  THE  CONTROLLING  MODULE 
FOR  RENAMING  A  RECORD  TYPE.  CALLS  ARE  MADE  TO  UPDATE  C  ROUTINES 
TO  MODIFY  THE  RT  ID  IN  11  CDM  TABLES:  RECORD_TYPE, 

DATA_FIELD,  RECORD_SET ,  DB_ARE  A_AS  S I GNMENT ,  SET__TYPE_MEMEBER , 
RC_BASED_REC_SET,  DF_USED_AS_SET_LINKAGE ,  DATA_F I E LD_F I LLER , 
AUC_IS_MAPPING,  PROJECT_DATA_FIELD ,  AND  ECRTUD . 

modified:  may  16,1988 

AUCISMAPPING  contains  rt_no,  not  rt_id. 

Do  not  update. 


ARGUMENTS : 


NEW-ID 

OLD-ID 

DB-ID 

NDDL-STATUS 


DSPLY [ X ( 3  0 ) ] 
DSPLY[X (30)  ] 
DSPLY (S9 (9) ] 
DSPLY [S9 (9) ] 


ROUTINES  CALLED: 


UPDRT 

UPDDF 

UPDRRS 

UPDDAA 

UPDRSTM 

UPDRRCB 

UPDRDFU 

UPDPDF 

UERROR 
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NAME:  UPDRULE 

PURPOSE:  MODIFIES  THE  DISTRIBUTED  RULES  FOR  AN  ENTITY 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  UPDRULE 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


ARGUMENTS : 


EC-NO 

UPDATE-RULE 

RETRIEVAL-RULE 

RET-STATUS 


DSPLY [S9 (9)  ] 
DSPLY [X ( 8 ) ] 
DSPLY [X (8) ] 
DSPLY [ X ( 5) ] 


INCLUDE  FILES: 


ERRCDM 

CHKCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  UPDSET 

PURPOSE:  CONTROL  MODULE  FOR  RENAMING  A  SET 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  UPDSET 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


FOR  RENAMING  A  SET.  CALLS  ARE  MADE  TO  UPDATE  C  ROUTINES 
TO  MODIFY  THE  SET  ID  IN  5  CDM  TABLES:  RECORD_SET, 

RC_BAS  E  D_RE  C_S  ET ,  SET_TYPE_MEMBER ,  DF_USED_AS_SET_LINKAGE , 
AUC  ST  MAPPING 


DSPLY[X(30) ] 
DSPLY [X (30) ] 
DSPLY[S9 (9)  ] 
DSPLY [S9 (9) ] 


ROUTINES  CALLED: 


UPDRSS 

UPDRCB 

UPDSTM 

UPDDFU 

UPDAUC 

UERROR 


ARGUMENTS : 


NEW-ID 

OLD-ID 

DB-ID 

NDDL-STATUS 
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NAME:  UPDSMOD 

PURPOSE:  UPDATE  LANGUAGE  NAME  AND  REVISION  DATE  ON 
S  O  FTWARE_MO  DU  LE 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  UPDSMOD 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  MODIFY  THE  LANG_NAME  AND  LATEST_REV_DATE 
ON  THE  SOFTWARE  MODULE  TABLE 


DSPLY [X ( 10) ] 
DSPLY [X( 10) ] 
DSPLY [X (9) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ERRPRO 


ARGUMENTS : 


MOD- ID 
LANG-NAME 
LATEST-REV-DATE 
RET-STATUS 
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NAME:  UPDTDT 

PURPOSE:  UPDATE  META-DATA  FIELDS  OF  U S ER_DEF_DATA_T Y PE  TABLE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  UPDTDT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-UPDATE  THE  TYPE-ID,  MAX-SIZE,  NO-OF-DEC 
OF  THE  USER  DEF  DATA  TYPE  TABLE 


ARGUMENTS : 


TYPE-ID 

MAX-SIZE 

NO-OF-DEC 

DATA-TYPE-NAME 

NDDL-STATUS 


DSPLY[X] 
DSPLY [S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [X (30)  ] 
DSPLY [S9 (9) ) 


INCLUDE  FILES: 


SRVRET 

ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


ERRPRO 
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NAME:  VALDROP 

PURPOSE:  VERIFIES  THE  PARTITION  EXISTS,  THEN  DROPS  PARTITION 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VALDROP 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THE  DATA  BASE  AND  RECORD  TYPE  ARE  VERIFIED, 
THE  PARTITION  IS  VERIFIED,  THEN  PARTITION 
RECORD  IS  DROPPED. 

VERIFY  THAT  DATA  BASE  AND  RECORD 
TYPE  EXISTS  ON  CDM,  VERIFY  THAT  THE 
PARTITION  TO  BE  DROPPED  EXISTS,  THEN 
DROP  THE  PARTITION  FOR  AS  MANY  DATA 
BASE  RECORD  TYPES  AS  ENTERED  BY  USER. 


ARGUMENTS : 


EC-NO 

HP-NO 

DB-NAME 

RT-ID 

COUNTER 

NDDL-STATUS 


DSPLY(S9(9) ] 
DSPLY[S9 (9)  ] 
DSPLY[X(30)  ] 
DSPLY[X(30)  ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

LISTNOS 

ERRPRO 


ROUTINES  CALLED: 


VERDBRT 

UERROR 

VERPART 

DELHPN 

CPFNXT 

ERRPRO 
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NAME:  VALDTN 

PURPOSE:  VALIDATES  "TO"  AND  "FROM"  DATA  TYPES 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VALDTN 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


-  TWO  DATA  TYPES  ARE  VALIDATED  WHEN 
ES-CS  AND  CS-IS  MAPPINGS  ARE  DEFINED. 

THE  PAIR  OF  TYPE,  SIZE  AND  ND  ARE 
COMPARED  AND  ERROR  AND  WARNING  MESSAGES 
ARE  ISSUED  WHEN  TRUNCATION,  ACCURACY  OR 
PRECISION  ARE  LOST. 

This  program  is  called  once  from  algdtn  and  twice  from 
chkdom  and  mapadf.  In  chkdom,  the  first  time  called,  the 
from  type  is  'es'  and  the  to  type  is  '  cs';  the  second  time 
the  from  type  is  'cs'  and  the  to  type  is  'es*.  In  mapadf 
the  first  call's  from  type  is  'cs'  and  the  to  type  is  'is'; 
the  second  call  the  from  type  is  'is'  and  the  to  type  is  'cs'. 
THE  DATATYPES  SUPPORTED  ARE: 

Conceptual:  C  or  V  -  Character,  Char,  Varchar 

N  -  Unsigned 

S  -  Signed 

D  -  Decimal/ Dec 

M  -  Numeric 

External:  All  the  Conceptual,  and  in  addition: 

I  -  Integer/Int 

F  -  Float 

P  -  Packed 

R  -  Real 

A  -  Small int 

0  -  Double  Precision 


Internal:  C  or  V  - 

Character,  Char,  Varchar 

added  12/18/89 

H  -  Signed  Overpunch  (Codasyl) 

ARGUMENTS : 

FROM-DTN 

DSPLY[X(30) ] 

TO-DTN 

DSPLY [X (30) ] 

ERROR-CODE 

DSPLY [ S9 (9) ] 

INCLUDE  FILES: 


ERRCDM 

ERRPRO 

ROUTINES  CALLED: 


VERDTYP 
U ERROR 
ERRPRO 
UWARN 
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NAME:  VALROJ 

PURPOSE:  VALIDATE  A  RECORD  OUTER  JOIN  MAPPING  FOR  A  GIVEN 
RECORD 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VALROJ 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


ARGUMENTS : 


RT-NO  DSPLY [S9 (9) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SDLIST 

ERRPRO 


ROUTINES  CALLED: 


UERROR 

ERRPRO 
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NAME:  VALVERF 

PURPOSE:  EDIT  VALUES  PASSED  TO  THIS  ROUTINE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VALVERF 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


DOM-VALUE 

TYPE-ID 

MAX-SIZE 

NO-OF-DEC 

NDDL-STATUS 


DSPLY[X(30) ] 
DSPLY [X] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9)  ] 
DSPLY [S9  (9)  ] 
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NAME:  VALVWRC 

PURPOSE:  VALIDATE  JOIN  CONDITIONS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VALVWRC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  WILL  VALIDATE  THAT  THE  JOIN 

CONDITIONS  ARE  SPECIFIED  BETWEEN  RELATED  ENTITIES  USING  AT 
LEAST  ONE  KEY  CLASS  FROM  THE  INDEPENDENT  ENTITY. 

MODIFIED:  26-APR-89 

TO  HANDLE  BOTH  CATEGORY  AND  LINK  RELATIONS. 


ARGUMENTS : 


VIEW- FROM- LI ST  RECRD 

CS-QUAL-CRITERIA-LIST  RECRD 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

SDLIST 

VWFROM 

CSQCLST 

ERRPRO 

ROUTINES  CALLED: 


CDP4A 

SELECNM 

UERROR 

ERRPRO 
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NAME:  VERACDT 

PURPOSE:  DETERMINE  ANY  ASSOCIATIONS  OF  A  DATA  TYPE  WITH 
ATTRIBUTE  CLASSES 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERACDT 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DETERMINES  IF  A  DATA  TYPE  IS  CURRENTLY  ASSOCIATED 
WITH  ANY  ATTRIBUTE  CLASSES 


ARGUMENTS : 


DSPLY [S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


DOM-NO 

USAGE-COUNT 


ROUTINES  CALLED: 


UWARN 

ERRPRO 


3-992 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERACNM 

PURPOSE:  RETRIEVE  THE  DOMAIN  FOR  AN  ATTRIBUTE  CLASS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERACNM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  an 
attribute  in  a  model  and  return  the  attribute 
number  and  its  associated  domain  name  and  number. 


ARGUMENTS : 


MODEL-NO 

AC-NAME 

AC-NO 

DOM-NO 

DOMAIN-NAME 


DSPLY[S9 (9) ] 
DSPLY [X (30)  ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9)  ] 
DSPLY [X (30)  ] 


INCLUDE  FILES: 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 
ERRPRO 


3-993 


PS  620341100 
30  September  1990 


DOCGROUP  PS 4 1100  Module  Documentation 


NAME:  VERAIM 

PURPOSE:  VERIFY  IF  A  RECORD  HAS  BEEN  MAPPED 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERAIM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VERIFY  FROM  AUC_IS_MAPPING  IF  THE  RECORD 
HAS  BEEN  MAPPED  TO  A  TAG. 

IF  THERE  EXISTS  A  MAPPING,  RETURN  A  VALUE 
OF  1  IN  FOUND-FLAG. 


ARGUMENTS : 


RT-NO 

FOUND-FLAG 

RETURN-STATUS 


DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERAIMD 

PURPOSE:  VERIFY  IF  OBJECTS  OF  A  DATABASE  HAVE  BEEN  MAPPED 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERAIMD 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VERIFY  FROM  AUC_IS_MAPPING  IF  THE  DATABASE 
(RECORDS, SETS, FIELDS)  HAVE  BEEN  MAPPED  TO  A  TAG. 
IF  THERE  EXISTS  A  MAPPING,  RETURN  A  VALUE 
OF  1  IN  FOUND-FLAG. 


ARGUMENTS : 


DSPLY [S9 (9) ] 
DSPLY [X] 
DSPLY (X(5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


DB-ID 
FOUND- FLAG 
RET-STATUS 


ERRPRO 


3-995 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERAIMR 

PURPOSE:  VERIFY  IF  AMPPING  EXISTS  FOR  TAG,  PREF,  DB,  AND  RT 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  VERAIMR 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  VERIFY  AN  AUC  MAPPING  IN  THE  CDM 
GIVEN  A  TAG  NMBR,  PREFERENCE,  DB,  RT 


ARGUMENTS : 


TAG-NO 

EC-NO 

RT-NO 

FOUND 

PREF-NO 

MAP-TYPE 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY[S9 (9)  ] 
DSPLY [S9 (9)  ] 
DSPLY [X ( 10)  ] 


ROUTINES  CALLED: 
ERRPRO 


3-996 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERAISM 

PURPOSE:  PROGRAM  NAME  VERAISM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERAISM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  VERIFY  AN  AUC  MAPPING  IN  THE 

CDM 

GIVEN  A  TAG  NMBR  AND  PREFERENCE. 

ARGUMENTS : 

TAG-NO 

DSPLY[S9 (9) ] 

PREF-NO 

DSPLY[S9 (9) ] 

MAP-TYPE 

DSPLY[X(10) ] 

AISM-COUNT 

DSPLY[S9 (9) ] 

FOUND 

DSPLY [ 9 ] 

INCLUDE  FILES: 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 


3-997 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERA LG 

PURPOSE:  VERIFY  EXISTENCE  OF  A  COMPLEX  MAPPING  ALGORITHM 

LANGUAGE:  VAX -11  COBOL 

SOURCE  FILE:  VERA LG 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VERIFY  THAT  AN  ALGORITHM  EXISTS  GIVEN  THE  MODULE 
ID,  MODULE  INSTANCE  AND  THE  RETRIEVE -UPDATE  FLAG. 

IF  THE  MODULE  IS  DEFINE  FOR  USE  AS  AN  ALGORITHM 
IN  AUCPARM,  THEN  CALL  VERAISM  TO  VERIFY  THAT  AN  ALGORITHM 
FOR  THAT  PREFERENCE  NUMBER  EXISTS.  IF  IT  DOES,  RETURN 
FOUND-FLAG  =1. 

MODIFIED  11/19/87  TO  DETERMINE  IF  THE  ALGORITHM  IS  FOR 
A  CS/ES.  IF  THIS  IS  THE  CASE  THEN  THERE  IS  NO  NEEED  TO  CHECK 
TO  SEE  IF  THE  CORRECT  PREFERENCE  NUMBER  HAS  BEEN  ENTERED. 


ARGUMENTS : 


MOD- ID 

RETR-UPD 

MOD-INSTANCE 

PREF-NO 

FOUND 

RET-STATUS 


DSPLY[X ( 10) ] 
DS  PLY [ X ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY[9] 
DSPLY [X ( 5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


VERAISM 

ERRPRO 


3-998 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERA LG I 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  A  COMPLEX  MAPPING  ALGORITHM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERALGI 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VERIFY  THAT  AN  ALGORITHM  EXISTS  GIVEN  THE  MODULE 
ID,  MODULE  INSTANCE  AND  THE  RETRIEVE -UPDATE  FLAG. 
IF  THE  MODULE  IS  DEFINE  FOR  USE  AS  AN  ALGORITHM 
IN  AUC_PARM ,  RETURN  FOUND-FLAG  =  1. 


ARGUMENTS : 


MOD-ID 

RETR-UPD 

MOD-INSTANCE 

FOUND 

RET-STATUS 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


DSPLY [X ( 10)  ] 
DSPLY[X] 
DSPLY [S9 (9) ] 
DSPLY [9] 
DSPLY [X (5)  ] 


3-999 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERALI 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  AN  ALIAS  NAME  FOR  AN  ENTITY 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  VERALI 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  WILL  VERIFY  THE  EXISTANCE  OF 
AN  ALIAS  FOR  AN  ENTITY. 


ARGUMENTS : 


FROM-EC-NAME 

TO-EC-NO 

FOUND 


DSPLY [X (30)  ] 
DSPLY [S9 (9)  ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1000 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERALMP 

PURPOSE:  VERIFY  THE  ALGORITHM  HAS  BEEN  RESERVED  THRU 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  VERALMP 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


TAG-NO 

EC-NO 

RT-NO 

PREF-NUMB 

MAP-TYPE 

FOUND 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [X ( 10)  ] 
DSPLY [ 9 ] 
DSPLY [X( 5)  ] 


INCLUDE  FILES: 


ERRCUM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


MAPPING 


3-1001 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERAODM 

PURPOSE:  CHECK  TO  SEE  IF  ENTITY  OWNS  AN  ATTRIBUTE  AND  RETRIEVE 
THE  ** 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERAODM 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  an 
attribute  in  a  model  and  its  entity  owner. 

Returning  the  attribute  number  and  its  associated  domain 
number  and  tag  number. 


ARGUMENTS : 


MODEL-NO 

EC-NO 

AC-NAME 

AC-NO 

DOM- NO 

TAG-NO 

RTN- STATUS 


DSPLY[S9 (9)  ] 
DSPLY[S9 (9) ] 
DSPLY[X(30) ] 
DSPLY [S9 (9)  ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9)  ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1002 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERAPDF 

PURPOSE:  SELECT  COUNT  OF  DATA  FIELDS  MAPPED  TO  A  TAG 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERAPDF 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DSPLY[S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY [S9 (9)  ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ERRPRO 


ARGUMENTS : 


PREF-NO 

TAG-NO 

AISM-COUNT 

RET-STATUS 


3-1003 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERAPRM 

PURPOSE:  RETRIEVE  ALL  META  DATA  FROM  MODULE_PARAMETER  GIVEN 
MODULE 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERAPRM 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


-  SELECT  PARMID,  PARMPURPOSE  AND 
DATA_T Y PE_NAME  FROM  MODULE_PARAMETER 
TABLE  GIVEN  MODULE  NAME  (MOD_ID)  AND 
PARAMETER  NAME  (PARM_NAME) 

ARGUMENTS : 


MOD- ID 

PARM-NAME 

PARM-ID 

PARM-PURPOSE 

DATA-TYPE-NAME 

FOUND 

RET-STATUS 

INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


3-1004 


DSPLY [X (10) ] 
DSPLY [X ( 30 ) ] 
DSPLY [S9 (S' ] 
DSPLY [ X ( 6  0 ) ] 
DSPLY [X (30)  ] 
DSPLY [S9 (9) ] 
DSPLY [X (5)  ] 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME :  VERAREA 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  AN  AREA  FOR  A  DATA  BASE 
LANGUAGE:  VAX- 11  COBOi, 

SOURCE  FILE:  VERAREA 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  VERIFIES  THE  EXISTANCE  OF  AN  AREA 
FOR  A  DATABASE 


ARGUMENTS: 


DB-ID 

FILE-NAME 

FOUND-STATUS 


DSPLY[S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1005 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERARL 

PURPOSE:  NDML  COMMAND  TO  RETURN  COUNT  OF  AREAS  ASSOC.  WITH  A 
DATABASE 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  VERARL 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


PRODUCES  AN  NDML  COMMAND  TO  SELECT  THE  NUMBER  OF  AREAS 
ASSOCIATED  WITH  A  DATA  BASE.  USED  TO  INFORM  CALLING 
ROUTINE  THAT  AN  ATTEMPT  MAY  HAVE  BEEN  MADE  TO  DELETE 
THE  LAST  AREA  (OR  TOTAL  FILE)  ASSOCIATED  WITH  A  DATA  BASE. 
RETRIVE  AREA  NAME  BASED  ON  THE  DATA  ABSE  ID  AND 
INCREMENT  THE  COUNT. 


ARGUMENTS : 


DB-ID 

AREA-NAME 

AREA-COUNT 


DSPLY [S9 (9) ) 
DSPLY[X(30) ] 
DSPLY (S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


3-1006 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERATAG 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  A  TAG  NAME 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERATAG 

SOURCE  FILE  TYPE:  PCO 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  PROGRAM  WILL  VERIFY  THE  EXISTENC  OF  A 
TAG  NAME  FOR  A  GIVEN  ENTITY  IN  ATTRIBUTE  USE 
CLASS. 

-  SELECT  THE  PROPER  TAG  NUMBER  AND  ATTRIBUTE 
CLASS  NUMBER  FROM  ATTRIBUTE  USE  CLASS  GIVEN 
THE  ENTITY  CLASS  NUMBER  AND  TAG  NAME. 


ARGUMENTS: 


EC-NO 

TAG-NAME 

TAG-NO 

AC-NO 

RET-STATUS 


DSPLY [S9 (9)  ] 
DSPLY[X(30)  ] 
DSPLY [S9 (9)  ] 
DSPLY [S9 (9)  ] 
DSPLY [X ( 5) ] 


INCLUDE  FILES: 


ERRCDM 

EOD 

ERRPRO 

ROUTINES  CALLED: 


SQLSCA 

SQLBS1 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLADR 

SQLAB1 

SQLEXE 

SQLAD1 

SQLFCH 

UERROR 

ERRPRO 


3-1007 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERATT 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  AN  ATTRIBUTE  CLASS  IN  A  MODEL 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERATT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  check  the  existence  of  an  attribute 
in  a  model  and  return  the  attribute  number. 


ARGUMENTS : 


MODEL-NO 

AC-NAME 

AC-NO 

AC-NAME-TYPE 


DSPLY[S9 (9)  ] 
DSPLY[X(30)  ] 
DSPLY [S9 (9) ] 
DSPLY[X(8) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1008 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERATTP 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  A  PRIMARY  ATTRIBUTE  CLASS  IN 
A  MODEL 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERATTP 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  check  the  existence  of  a  primary  attribute 
in  a  model  and  return  the  attribute  number. 


ARGUMENTS : 


MODEL-NO 

AC-NAME 

AC-NO 


DSPLY [S9 (9)  ] 
DSPLY[X(30)  ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1009 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERAUC 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  AN  ATTRIBUTE  USE  CLASS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERAUC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  an 
attribute  use  class  for  an  entity  returning  its 
tag-no. 


ARGUMENTS : 


EC-NO 

TAG-NAME 

TAG-NO 

AC-NO 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


DSPLY[S9 (9) ] 
DSPLY[X(30) ] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


ROUTINES  CALLED: 
ERRPRO 


3-1010 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERCMSV 

PURPOSE:  verify  the  existence  of  a  CATEGORY  MEMBER  SPECIFIC 
VALUE 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERCMSV 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  a  category  member 
specific 

value  and  return  the  category  entity  number 


ARGUMENTS: 


RC-NO 

SPECIFIC-VALUE 

CAT-EC-NO 

RTN-STATUS 


DSPLY[S9 (9) ] 
DSPLY [X (30)  ] 
DSPLY[S9 (9)  ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINE^  CALLED: 
ERRPRO 


3-1011 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME :  VERCMU 

PURPOSE:  verify  the  existence  of  a  CATEGORY  MEMBER 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERCMU 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  a  category  member 
and  return  the  specific  value 


ARGUMENTS : 


RC-NO 

CAT-EC-NO 

SPECIFIC-VALUE 

RTN-STATUS 


DSPLY [S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [X( 30) ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1012 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERCR 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  A  CATEGORY  RELATION 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERCR 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  a  category  relation 
and  return  the  relation  class  number. 


ARGUMENTS: 


MODEL-NO 

GEN-EC-NO 

RC-NAME 

RC-NO 

RTN-STATUS 


DSPLY [S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [X( 30) ] 
DSPLY [S9 (9) ] 
DSPLY [X ( 5) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1013 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERCRC 

PURPOSE:  DETERMINE  IF  A  KEY  CLASS  IS  PART  OF  A  COMPLETE 
RELATION 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERCRC 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  determine  if  a  key  class  is  part  of 
a  complete  relation. 


ARGUMENTS : 

KC-NO  DSPLY [ S9 ( 9 ) ] 

RC-NO  DSPLY [S9 (9)] 

INCLUDE  FILES: 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1014 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERCRDA 

PURPOSE:  verify  the  existence  of  a  CATEGORY  DISCRIMINATING 
ATTRIBUTE 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERCRDA 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  a  category 
discriminating 

attribute  and  return  the  category  RELATION  number 


ARGUMENTS : 


GEN-EC-NO 

DISCRIM-TAG-NO 

RC-NO 

RTN-STATUS 


DSPLY[S9 (9)  ] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1015 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERCRNM 

PURPOSE:  VERIFY  EXISTANCE  OF  A  CATEGORY  RELATION  IN  A  MODEL 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERCRNM 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  VERIFIES  THE  EXISTANCE  OF  A  RELATION  GIVEN  THE 
ENTITY  NAMES  RELATION  NAME  AND  MODEL. 


ARGUMENTS : 


TO-MOD-NO 

GEN-EC-NAME 

RC-NAME 

RC-NO 


DSPLY[S9 (9) ] 
DSPLY[X(30)  ] 
DSPLY[X(30)  ] 
DSPLY[S9 (9)  ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 


VERENT 

VERCR 

ERRPRO 


3-1016 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERCRTC 

PURPOSE:  SELECT  A  CATEGORY  RELATION  TYPE  CODE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERCRTC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  select  the  category _type_code  for  a  specific 
category  relation. 


ARGUMENTS : 


RC-NO 

EC-NO 

CAT-TYPE-CODE 

RTN-STATUS 


DSPLY [S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY [X( 10)  ] 
DSPLY [S9 (9) ) 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1017 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDB 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  A  DATA  BASE  IN  THE  CDM 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  VERDB 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  verifies  the  existence  of  a  database. 


ARGUMENTS : 


DB-NAME 

DB-ID 


DSPLY [X (30) ] 
DSPLY [S9  (9 )  ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1018 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDBA 

PURPOSE:  SELECT  ALL  AREAS  FOR  A  DB  AND  GENERATE  AREAS  OR  FILES 
CLAUSE  FOR  CPY 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERDBA 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


DB-ID 
DBMS -NAME 


DSPLY[S9 (9) ] 
DSPLY [X (30) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ADDPARM 

ERRPRO 


3-1019 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDBAA 

PURPOSE:  RETRIEVE  COUNT  OF  RECORD  TYPE  ASSOCIATIONS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDBAA 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


RETRIEVE  COUNT  OF  RECORD  TYPE  ASSOCIATIONS 
FROM  DB_AREA_ASS IGMENT  FOR  A  GIVEN 
RECORD  TYPE 


ARGUMENTS : 


DB-ID 

TMP-RTID 

FOUND 

RET-STATUS 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


DSPLY[S9 (9)  ] 
DSPLY [X (30)  ] 
DSPLY[S9 (9)  ] 
DSPLY (X (5) ] 


3-1020 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDBAL 

PURPOSE:  NDML  COMMAND  TO  VERIFY  EXISTENCE  OF  A  DATABASE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDBAL 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


PROCEDURE  TO  VERIFY  THAT  A  PARTICULAR  DATABASE  EXISTS. 
BASED  ON  DATABASE  NAME,  RETRIEVES  DATABASE  ID,  HOST  ID, 
DBMS  NAME,  NULL  VALUE,  AND  NTM  DIRECTORY. 

RETRIEVE  THE  DB  ID,  HOST  ID,  DBMS  NAME,  NULL  VALUE, 

NTM  DIRECTORY  FROM  THE  DATA_BASE  CDM  TABLE  BASED  ON 

THE  DB  NAME.  INCREMENT  AND  RETURN  COUNT  AND  ALL  VARIABLES. 


ARGUMENTS: 


DB-NAME 

DSPLY[X(30) ] 

DB-ID 

DSPLY[S9 (9) ] 

HOST-ID 

DSPLY[X(30) ] 

DBMS -NAME 

DSPLY[X(30) ] 

CHA-NULL-VALUE 

DSPLY[X(30) ] 

INT-NULL-VALUE 

DSPLY[X(30) ] 

NTM-DIR 

DSPLY[XX] 

DB-COUNT 

DSPLY[S9 (9) ] 

RET-STATUS 

DSPLY [ X ( 5 ) ] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 

3-1021 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDBAS 

PURPOSE:  VERIFY  A  DATA  BASE  FOR  A  GIVEN  NAME  AND  HOST 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDBAS 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  VERIFIES  THE  EXISTANCE  OF  A  DATABASE,  GIVEN  THE 
NAME  AND  HOST.  IT  RETURNS  THE  DATABASE  ID  AND  THE  DBMS  NAME. 


ARGUMENTS : 


DB-NAME 

HOST-ID 

DB-ID 

DBMS -NAME 

FOUND-STATUS 


DSPLY [X(30) ] 
DSPLY [X ( 30) ] 
DSPLY [S9 (9) ] 
DSPLY [X (30)  ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1022 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDBH 
PURPOSE: 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERDBH 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  PRODUCES  A  SELECT  NDML  STATEMENT  TO 
DETERMINE  IF  THE  DBMS  /  HOST  ASSOCIATION 
EXISTS  ON  THE  DBMS  ON  HOST  TABLE. 


ARGUMENTS : 


HOST-ID 
DBMS -NAME 
DBH- COUNT 
RET-STATUS 


DSPLY[X(30) ] 
DS PLY [X (30) ] 
DSPLY[S9 (9) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1023 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDBMS 

PURPOSE:  PRODUCES  NDML  STATEMENT  TO  DETERMINE  IF  DBMS  EXISTS 
ON  THE  DBMS  TABL 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERDBMS 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  PRODUCES  AN  SELECT  NDML  STATEMENT  TO 
DETERMINE  IF  THE  DBMS  EXISTS  ON  THE 
DBMS  TABLE. 


ARGUMENTS : 


DBMS -NAME 
DBMS -COUNT 
DB-MODEL-TYPE 
RET-STATUS 


DSPLY[X(30) ] 
DSPLY[S9 (9)  ] 
DSPLY [X] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1024 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDBRL 

PURPOSE:  VERIFY  IF  OBJECTS  OF  A  DATABASE  HAVE  BEEN  MAPPED 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDBRL 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VERIFY  FROM  RC_BASED_REC_SET  IF  THE  DATABASE 
(SETS)  HAVE  BEEN  MAPPED  TO  A  RELATION. 

IF  THERE  EXISTS  A  MAPPING,  RETURN  A  VALUE 
OF  1  IN  FOUND-FLAG. 


ARGUMENTS : 


DB-ID 

FOUND- FLAG 
RET-STATUS 


DSPLY [S9 (9) ] 
DSPLY[X] 
DSPLY [X( 5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


3-1025 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDBRT 

PURPOSE:  RETRIEVE  RECORD  TYPE  NUMBER  GIVEN  DATA  BASE  AND 
RECORD  NAME 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERDBRT 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  RECORD  TYPE  NUMBER  (RT_NO)  FROM  RECORD  TYPE  TABLE 
GIVEN  THE  DATA  BASE  NAME  (DB_NAME)  AND  RECORD  NAME  (RT_ID 


DSPLY[X(30) ] 
DSPLY[X(30) ] 
DSPLY[S9 (9)  ] 
DSPLY[S9 (9)  ] 
DSPLY[X(5)  ] 


INCLUDE  FILES: 


SRVRET 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


ARGUMENTS : 


DB-NAME 

RT-ID 

RT-NO 

FOUND 

RET-STATUS 


3-1026 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDBST 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  A  SET  FOR  A  DATABASE 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  VERDBST 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  THE  OWNER  NAME,  TOTAL  NUMBER  OF  MEMBERS 
AND  SET  NUMBER  OF  A  SET  NAME  FOR  A  SPECIFIED 
DATA  BASE. 


ARGUMENTS : 

DB-ID 

DSPLY [S9 (9) ] 

SET-NAME 

DSPLY [ X ( 3  0 )  ] 

RT-OWNER 

DSPLY [X ( 30)  ] 

TOT-MEMB 

DSPLY [S9 (9) ] 

SET-NO 

DSPLY [S9 (9) ] 

FOUND 

DSPLY [S9 (9) ] 

RET-STATUS 

DSPLY [X (5) ] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 

3-1027 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDF 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  A  DATA  FIELD 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDF 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  check  the  existence  of  a  data  field. 


ARGUMENTS : 


DB-NAME 

RT-ID 

DF-ID 

DB-ID 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


DSPLY[X (30) ] 
DSPLY[X(30)  ] 
DSPLY[X(30)  ] 
DSPLY[S9 (9) ] 


ROUTINES  CALLED: 
ERRPRO 


3-1028 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDFDT 

PURPOSE:  DETERMINE  ANY  ASSOCIATIONS  OF  A  DATA  TYPE  WITH  A 
PROJECT  DF 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERDFDT 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DETERMINES  IF  A  DATA  TYPE  IS  CURRENTLY  ASSOCIATED 
WITH  ANY  ELEMENTARY  DATA  FIELDS 


ARGUMENTS : 


DATA-TYPE-NAME  DSPLY [ X ( 3  0 ) ] 

USAGE-COUNT  DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 


UWARN 

ERRPRO 


3-1029 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDFID 

PURPOSE:  NDML  COMMAND  TO  VERIFY  THE  EXISTENCE  OF  A  DATA  FIELD 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDFID 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  DATA  FIELD  NUMBER  (DF_NO)  FROM  THE 
DATA_FIELD  TABLE  GIVEN  THE  DATA  FIELD  ID  (DF_ID) 

-  SELECT  THE  DF_NO  FROM  THE  DATA_FIELD 
TABLE  WHERE  THE  DF_ID  EQUALS  THE  USER- 
PROVIDED  DF  ID. 


ARGUMENTS : 


DB-NAME 

RT-ID 

DF-ID 

DF-NO 

DB-ID 


DSPLY[X(30)  ] 
DSPLY[X(30)  ] 
DSPLY[X(30)  ] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


3-1030 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDFLD 

PURPOSE:  VERIFIES  THE  EXISTENCE  OF  A  DATA  FIELD  FOR  A  GIVEN 
DATA  BASE 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERDFLD 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  VERIFIES  THE  EXISTENCE  OF  A  DATA  FIELD  AND 
RETURNS  THE  DATA  FIELD  NUMBER  (DF-NO) . 


ARGUMENTS : 


DB-ID 

RT-ID 

DF-ID 

DF-NO 

FOUND-STATUS 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


DSPLY [S9 (9) ] 
DSPLY [X(30) ] 
DSPLY [X ( 30) ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 


ROUTINES  CALLED: 
ERRPRO 


3-1031 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDFPA 

PURPOSE:  VERIFY  IF  THE  DATA  FIELD  IS  MAPPED 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDFPA 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


CHECK  IF  THE  FIELD  HAS  A  ALGORITHM  MAPPING. 
IF  A  MAPPING  IS  FOUND  IN  DF_PARM 
RETURN  A  VALUE  OF  1  IN  FOUND-FLAG. 


ARGUMENTS : 


DF-NO 

FOUND 

RET-STATUS 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


DSPLY [S9 (9)  ] 
DSPLY[S9 (9)  ] 
DSPLY [X (5) ] 


ROUTINES  CALLED: 
ERRPRO 


3-1032 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDFUS 

PURPOSE:  VERIFY  THAT  A  DATA  FIELD  IS  USED  BY  A  SOFTWARE_MODULE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDFUS 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


DF-NO  DSPLY[S9 (9) ] 
FOUND  DSPLY [S9 (9) ] 
RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1033 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDI 

PURPOSE:  VERIFY  TEH  EXISTENCE  OF  A  DATA  ITEM  IN  A  GIVEN  VIEW 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDI 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  a  data  item. 


ARGUMENTS : 


VIEW-NAME 

DI-ID 

VIEW-NO 

DATA-ITEM-NO 


DSPLY[X(30)  ] 
DSPLY[X(30) ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1034 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDI DN 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  A  DATA  ITEM  IN  A  GIVEN  VIEW 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDI DN 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  a  data  item, 
it  also  returns  the  data  type  name. 


ARGUMENTS : 


VIEW-NAME 

DI-ID 

VIEW-NO 

DATA- ITEM-NO 

OBJ-DATA-TYPE 

RET-STATUS 


DSPLY [X ( 30)  ] 
DSPLY[X(30)  ] 
DSPLY [S9 (9) ] 
DSPLY [ S9 ( 9 )  ) 
DSPLY [X( 30)  ] 
DSPLY [X( 5)  ] 


INCLUDE  FILES: 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 
ERRPRO 


3-1035 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDIDT 

PURPOSE:  DETERMINE  IF  A  DATA  TYPE  IS  ASSOCIATED  WITH  ANY  DATA 
ITEMS 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  VERDIDT 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DETERMINES  IF  A  DATA  TYPE  IS  CURRENTLY  ASSOCIATED 
WITH  ANY  DATA  ITEMS. 


ARGUMENTS : 


DATA-TYPE-NAME  DSPLY [ X ( 3  0 ) ] 

USAGE-COUNT  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 


UWARN 

ERRPRO 


3-1036 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDIID 

PURPOSE:  NDML  COMMAND  TO  VERIFY  THE  EXISTENCE  OF  A  DATA  ITEM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDIID 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  DATA  ITEM  NUMBER  (DI_NO)  FROM  THE 
DATA_ITEM  TABLE  GIVEN  THE  DATA  ITEM  ID  (DI_ID) 

-  SELECT  THE  DI_NO  FROM  THE  DATA_ITEM 
TABLE  WHERE  THE  DI_ID  EQUALS  THE  USER- 
PROVIDED  DI  ID. 


ARGUMENTS : 


VIEW-NAME 

DI-ID 

DI-NO 

VIEW-NO 


INCLUDE  FILES: 


DSPLY[X(30)  ] 
DSPLY[X(30)  ] 
DSPLY[S9 (9)  ] 
DSPLY[S9 (9)  ] 


SRVRET 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


3-1037 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDI PA 

PURPOSE:  VERIFY  IF  THE  DATA  ITEM  IS  MAPPED 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDIPA 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


CHECK  IF  THE  DATAITEM  HAS  A  ALGORITHM  MAPPING. 
IF  A  MAPPING  IS  FOUND  IN  DI_PARM 
RETURN  A  VALUE  OF  1  IN  FOUND-FLAG. 


ARGUMENTS : 


DI-NO 

FOUND 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[S9(9) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1038 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDOM 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  A  DOMAIN  CLASS  IN  THE  CDM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDOM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  verifies  the  existence  of  a 
domain  class. 


ARGUMENTS : 


DOMAIN-NAME  DSPLY [ X ( 3  0 ) ] 

DOM-NO  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1039 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDPSB 

PURPOSE:  VERIFIES  THE  EXISTANCE  OF  A  PROGRAM  STATUS  BLOCK  FOR 
AN  IMS  DATABASE 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERDPSB 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  VERIFIES  THE  EXISTANCE  OF  A  PROGRAM  STATUS  BLOCK 
FOR  AN  IMS  DATABASE. 


DSPLY[X(8) ] 
DSPLY[S9 (9)  ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ARGUMENTS : 


PSB-NAME 

FOUND-STATUS 


ROUTINES  CALLED: 
ERRPRO 


3-1040 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDSCT 

PURPOSE:  VERIFY  WHETHER  A  DESCRIPTION  TYPE  ALREADY  EXISTS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDSCT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


YPE  ALREADY  EXISTS 

DESCRIPTION  :-  PRODUCES  NDML  STATEMENT  TO  DETERMINE 
WHETHER  A  DESCRIPTION  TYPE  ALREADY  EXISTS. 

YPE  ALREADY  EXISTS. 

YPE  A 

WHERE  A. DESC_TYPE  =  :DESC-TYPE 

{ 


ARGUMENTS: 


DESC-TYPE 

DESC-FOUND 

RET-STATUS 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


DSPLY [X(30)  ] 
DSPLY[S9 (9)  ] 
DSPLY [X (5) ] 


3-1041 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDSL3 

PURPOSE:  RETRIEVES  SET  ID  FOR  TOTAL  DATA  BASE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDSL3 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  RETRIEVES  THE  SET  ID  FROM  THE  DATA  FIELD  SET 
LINKAGE  -  USED  IF  THE  DBMS  IS  "TOTAL1'  . 


ARGUMENTS : 


DB-ID 

RT-ID 

DF-ID 

SET-ID 

SET-NO 

RET-STATUS 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


DSPLY[S9 (9) ] 
DSPLY [X (30)  ] 
DSPLY[X(30)  ] 
DSPLY [X (30) ] 
DSPLY [S9 (9)  ] 
DSPLY [X (5) ] 


ROUTINES  CALLED: 
ERRPRO 


3-1042 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDSTP 

PURPOSE:  VALIDATE  A  USER  ENTERED  DESCRIPTION  TYPE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDSTP 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  check  that  a  description  type  is 
valid. 

YPE  A 

WHERE  A. DESC_TYPE  =  :  DESC-TYPE 

{ 


ARGUMENTS : 

DESC-TYPE  DSPLY [ X ( 3  0 ) ] 

FOUND  DSPLY [S9 (9)] 

INCLUDE  FILES: 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1043 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDT 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  A  USER  DEFINED  DATA  TYPE 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  VERDT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  that  a  data  type  name  exists. 


DSPLY[X(30) ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ARGUMENTS : 


DATA-TYPE-NAME 

FOUND 


ROUTINES  CALLED: 
ERRPRO 


3-1044 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME :  VERDTD 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  A  DATA  TYPE  IN  A  GIVEN  DOMAIN 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDTD 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  a  data 
type  and  determine  if  it  is  a  standard  or  user 
defined. 


ARGUMENTS : 


DOM-NO  DSPLY [ S9 ( 9 ) ] 

DATA-TYPE-NAME  DSPLY [ X ( 3  0 ) ] 

STD-USER  DSPLY [ X ( 4 ) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


SRVRET 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


3-1045 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDTFL 

PURPOSE:  VERIFIES  THE  EXISTENCE  OF  A  DATA  FIELD 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDTFL 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  VERIFIES  THE  EXISTENCE  OF  A  DATA  FIELD  GIVEN 
A  DATA  BASE  NAME,  RECORD  TYPE  AND  DATA  FIELD  NAME. 

IT  CALLS  ANOTHER  ROUTINE  TO  RETRIEVE  THE 
DATA  TYPE  NAME  OF  THE  ELEMENTARY  DF. 


ARGUMENTS : 

DB-NAME 

DSPLY[X(30) ] 

RT-ID 

DSPLY [X (30) ] 

DF-ID 

DSPLY[X(30) ] 

RT-NO 

DSPLY [S9 (9) ] 

DF-NO 

DSPLY [S9 (9) ] 

OBJ-DATA-TYPE 

DSPLY [X (30) ] 

DBMS -ACCESS 

DSPLY [X] 

RET-STATUS 

DSPLY [ X ( 5 ) ] 

INCLUDE  FILES: 

SRVRET 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 

GETDTN 

ERRPRO 
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NAME:  VERDTN 

PURPOSE:  NDML  COMMAND  TO  VERIFY  THE  EXISTENCE  OF  A  DATA  TYPE 
NAME 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERDTN 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  DATA  TYPE  NUMBER  (USDF_DT_NO)  FROM  THE 

U S ER_DE F_DATA_T Y PE  TABLE  GIVEN  THE  DATA_TYPE_NAME 

-  SELECT  THE  USDF_DT_NO  FROM  THE 

U S ER_DE F_DATA_T Y PE  TABLE  WHERE  THE 
DATA_TYPE_NAME  EQUALS  THE  USER- 
PROVIDED  DATA  TYPE  NAME 


ARGUMENTS : 


DATA-TYPE-NAME  DSPLY [ X ( 3  0 ) ] 

USDF-DT-NO  DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


3-1047 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERDTYP 

PURPOSE:  RETRIEVE  TYPE  ID, MAXIMUM  SIZE  AND  NUMBER  DECIMALS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERDTYP 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DETERMINES  TYPE  ID,  MAXIMUM  SIZE  AND  NUMBER 
OF  DECIMALS  GIVEN  THE  DATA-TYPE-NAME . 


ARGUMENTS : 

DATA-TYPE-NAME 

DSPLY [X (30) ] 

TYPE-ID 

DSPLY [X] 

MAX-SIZE 

DSPLY [S9 (9) ] 

NO-OF-DECIMALS 

DSPLY [S9 (9) ] 

RET-STATUS 

DSPLY [X (5) ] 

INCLUDE  FILES: 

SRVRET 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 
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NAME:  VERDUN I 

PURPOSE:  VERIFY  IF  OBJECTS  OF  A  DATABASE  HAVE  BEEN  MAPPED 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  VERDUN I 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VERIFY  FROM  ECRTUD  IF  THE  DATABASE 
RECORDS  HAVE  BEEN  UNIONED 

IF  THERE  EXISTS  A  MAPPING,  RETURN  A  VALUE 
OF  1  IN  FOUND-FLAG. 


ARGUMENTS : 


DB-ID 

FOUND-FLAG 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[X] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 
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NAME:  VERECN 

PURPOSE:  RETRIEVE  ALL  INFORMATION  FOR  A  GIVEN  ENTITY  NAME. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERECN 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SELECT  ALL  META  DATA  FIELDS  FROM 
ENTITY  NAME  FOR  A  GIVEN  EC  NAME. 


ARGUMENTS : 


EC-NAME 

EC-NO 

EC-NAME-TYPE 

FOUND 

RET-STATUS 


DSPLY[X(30) ] 
DSPLY [S9 (9) ] 
DSPLY[X(8) ] 
DSPLY [S9 (9)  ] 
DSPLY [X( 5)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 
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NAME:  VERECR 

PURPOSE:  NDML  TO  VERIFY  AN  EC_NO  IN  THE  ECRTUD  TABLE  FOR  DROP 
ENTITY 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERECR 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ARGUMENTS : 


EC-NO 

NDDL-STATUS 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  VERECRT 

PURPOSE:  VERIFIES  IF  AN  ENTITY  TO  RECORD  MAPPING  EXISTS  IN  THE 
CDM 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERECRT 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


ARGUMENTS : 


EC-NO 

RT-NO 

FOUND-STATUS 

RET-STATUS 


DSPLY[S9 (9)  ] 
DSPLY [S9 (9) ] 
DSPLY [X] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  VERENT 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  AN  ENTITY  CLASS  IN  A  MODEL 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERENT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  an  entity 
class  in  a  model  and  return  the  entity  number. 


ARGUMENTS : 


EC-NAME 

MODEL-NO 

EC-NO 


DSPLY[X(30) ] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  VERENTP 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  A  PRIMARY  ENTITY  CLASS  IN  A 
MODEL 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERENTP 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  a  primary  entity 
class  in  a  model  and  return  the  entity  number. 


DSPLY[X(30) ] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ARGUMENTS : 


EC-NAME 

MODEL-NO 

EC-NO 


ROUTINES  CALLED: 
ERRPRO 
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NAME s  VERERMD 

PURPOSE:  VERIFY  IF  OBJECTS  OF  A  DATABASE  HAVE  BEEN  MAPPED 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERERMD 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VERIFY  FROM  EC_RT_MAPPING  IF  THE  DATABASE 
(RECORDS)  HAVE  BEEN  MAPPED  TO  AN  ENTITY 
IF  THERE  EXISTS  A  MAPPING,  RETURN  A  VALUE 
OF  1  IN  FOUND-FLAG. 


DSPLY [S9 (9) ] 
DSPLY[X] 
DSPLY [X( 5) ] 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


ARGUMENTS : 


DB-ID 

FOUND-FLAG 

RET-STATUS 


INCLUDE  FILES: 
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NAME:  VERFJOB 

PURPOSE:  CREATE  A  PROCEDURE  TO  COMPILE  ALL  GENERATED  CODE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERFJOB 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DSPLY [X (80) ] 
DSPLY [X ( 10) ] 
DSPLY [X (80)  ] 
DSPLY [X( 5)  ] 


INCLUDE  FILES: 


ERRCDM 

SBSTLST 

ERRFS 

ERRPRO 


ROUTINES  CALLED: 


GETHOST 

GENFIL 

OPNFIL 

CLSFIL 

ERRPRO 

CDMACR 


ARGUMENTS : 


VERIF-FILE-NAME 
LANG-NAME 
COMP-PROC-FILE 
RET -STATUS 
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NAME:  VERHORZ 

PURPOSE:  VERIFY  IF  A  RECORD  HAS  BEEN  MAPPED 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERHORZ 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


VERIFY  FROM  HORI ZONTAL_PART  IF  THE  RECORD 
PARTICIPATES  IN  A  HORIZONTAL  PARTITION. 

IF  THERE  EXISTS  A  MAPPING,  RETURN  A  VALUE 
OF  1  IN  FOUND-FLAG. 


ARGUMENTS: 


RT-NO 

FOUND-FLAG 

RETURN-STATUS 


DSPLY [S9 (9) ] 
DSPLY [ S9 ( 9 )  ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 
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NAME  *  VERHPDF 

PURPOSE:  VALIDATE  A  GIVEN  PARTITION  RECORD  NAME  IN  THE  CDM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERHPDF 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  VERIFIES  THAT  A  GIVEN  DB  NO/RECRD  NAME 
EXISTS  IN  THE  HORIZONTAL  PART  TABLE. 


ARGUMENTS : 


EC-NO 

DB-NO 

REC-NAME 

RT-NO 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY[X(30)  ] 
DSPLY[S9 (9) ] 
DSPLY[X(5)  ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  VERHPN 

PURPOSE:  RETRIEVE  RECORD  TYPE  NUMBER  FOR  A  GIVEN  EC  NO.  &  HP 
NO. 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERHPN 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  RECORD  TYPE  NUMBER  FROM 
HORI ZONTAL_PART  FOR  A  GIVEN  ENTITY 
NUMBER  AND  PARTITION  NUMBER. 


ARGUMENTS : 


EC-NO 

HP-NO 

RT-NO 

FOUND 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [ S9 ( 9 ) ] 
DSPLY[S9 (9) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 
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NAME:  VERHPST 

PURPOSE:  VALIDATE  A  GIVEN  PARTITION  RECORD  NAME  IN  THE  CDM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERHPST 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  VERIFIES  THAT  A  GIVEN  DB  NO/SET  NAME 
EXISTS  IN  THE  HORIZONTAL  PART  TABLE. 


ARGUMENTS : 


EC-NO 

DB-NO 

SET-NAME 

RT-NO 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY[X(30)  ] 
DSPLY [S9 (9) ] 
DSPLY[X(5)  ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  VERHST 

PURPOSE:  PRODUCES  NDML  STATEMENT  TO  DETERMINE  IF  HOST  EXISTS 
ON  HOST  TABLE. 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERHST 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  PRODUCES  AN  SELECT  NDML  STATEMENT  TO 
DETERMINE  IF  THE  HOST  EXISTS  ON  THE 
HOST  TABLE.  A  HOST  NUMBER  IS  RETURNED 
TO  THE  CALLING  PROGRAM  IF  THE  HOST  IS 
SUCCESSFULLY  SELECTED. 


ARGUMENTS : 


HOST-ID 

HOST-NO 


DSPLY[X(30) ] 
DSPLY[S9 (9)  ] 


INCLUDE  FILES; 


ERRCDM 

LISTNOS 

ERRPPO 

ROUTINES  CALLED: 


ERRPRO 
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NAME:  VERHZP 

PURPOSE:  VERIFY  THAT  A  GIVEN  ENTITY  CLASS  NO  EXISTS  IN  THE  CDM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERHZP 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  VERIFIES  THAT  A  GIVEN  ENTITY_CLASS_NO 
EXISTS  IN  THE  HORIZONTAL  PART  TABLE. 


ARGUMENTS : 


DSPLY[S9  (9)  ] 
DSPLY [9 ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


EC-NO 

FOUND 

RET-STATUS 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  VERIREL 

PURPOSE:  DETERMINE  IF  A  RELATION  CLASS  IS  COMPLETE. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERIREL 

SOURCE  FILE  TYPE:  PCO 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  DETERMINE  IF  THE  RELATION  CLASS  SPECIFIED 
IS  COMPLETE.  I.E.  HAS  A  KEY  BEEN  MIGRATED. 


DSPLY [S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

EOD 

ERRPRO 


ARGUMENTS : 


RC-NO 

KC-NO 

RET-STATUS 


ROUTINES  CALLED: 


SQLSCA 

SQLBS1 

SQLSCH 

SQLSCC 

SQLTOC 

SQLOSQ 

SQLADR 

SQLAB1 

SQLEXE 

SQLAD1 

SQLFCH 

SQLCLS 

ERRPRO 
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NAME:  VERITAG 

PURPOSE:  VERIFY  IF  A  TAG  IS  INHERITED  VIA  SOME  RELATIONSHIP. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERITAG 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


TAG-NO 

FOUND 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  VERKC 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  A  KEY  CLASS  IN  A  MODEL 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERKC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  a  key 
class  for  an  entity  class  and  return  the  unique 
number  assigned  to  the  key  class. 


ARGUMENTS : 


EC-NO 

KC-NAME 

KC-NO 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


DSPLY[S9 (9) ] 
DSPLY [X (30)  ] 
DSPLY[S9 (9) ] 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  VERKCM 

PURPOSE:  DETERMINE  IF  AN  ATTRIBUTE  IS  MEMBER  IN  ANY  KEY 
CLASSES . 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  VERKCM 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  DETERMINE  IF  AN  ATTRIUBTE  IS  MEMBER  IN  ANY 
KEY  CLASS. 


ARGUMENTS : 


TAG-NO 

ANY-KC-NO 

KC-COUNT 

RET-STATUS 


DSPLY[S9 (9)  ] 
DSPLY[S9  (9)  ] 
DSPLY [S9 (9) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1066 


PS  620341100 
30  September  1990 


D0C6R0UP  PS41100  Module  Documentation 


NAME:  VERKCMG 

PURPOSE:  VERIFY  A  TAG  NAME  IS  THE  MEMBER  OF  A  GIVEN  KEY  CLASS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERKCMG 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  WILL  VERIFY  THAT  A  TAG  NAME 

IS  A  MEMBER  OF  THE  KEY  CLASS  WHEN  GIVEN  THE  KEY  CLASS 

AND  TAG-NAME.  A  FLAG  WILL  BE  SET  IF  FOUND. 


ARGUMENTS : 


TAG-NAME 

KC-NO 

KC-FOUND 

RET-STATUS 


DSPLY [ X ( 3  0  )  ] 
DSPLY [S9 (9) ] 
DSPLY [X] 
DSPLY [X ( 5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  VERKCT 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  A  KEY  CLASS  TYPE  IN  A  MODEL 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERKCT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  a  key 
class  TYPE  for  an  entity  class  and  return  the  unique 
number  assigned  to  the  key  class. 


ARGUMENTS : 


EC-NO 

KC-TYPE 

KC-NAME 

KC-NO 

RTN-STATUS 


DSPLY[S9 (9) ] 
DSPLY[X(10)  ] 
DSPLY [ X ( 3  0 )  ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 

ROUTINES  CALLED: 
ERRPRO 
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NAME:  VERKCT1 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  A  KEY  CLASS  TYPE  IN  A  MODEL 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERKCT1 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  a  key 
class  for  an  KEY  CLASS  number 

and  return  the  key  class  type  assigned  to  the  key  class. 


ARGUMENTS : 


KC-NO 

KC-TYPE 

RTN-STATUS 


DSPLY[S9 (9) ] 
DSPLY[X(10)  ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  VERKW 

PURPOSE:  verify  the  existence  of  a  keyword. 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  VERKW 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  a  keyword. 


DSPLY[X (30) ) 
DSPLY[S9 (9) ) 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ARGUMENTS : 


KEYWORD 

KW-NO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  VERKWE 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  ENTITY  CLASS  KEYWORD 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERKWE 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


EC-KW 

TO-EC-NO 

KW-NO 


DS PLY [X (30) ] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  VERKWR 

PURPOSE:  VERIFIES  THE  EXISTANCE  OF  A  RELATION  CLASS  KEYWORD. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERKWR 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  VERIFIES  THE  EXISTANCE  OF  A  RELATION  CLASS 
KEYWORD  IN  THE  TO-MODEL. 


ARGUMENTS : 


RC-KW 

TO-RC-NO 

KW-NO 


DSPLY [X (30) ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  VERLR 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  A  LINK  RELATION 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERLR 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  a  link  relation 

and  return  the  relation  class  number  and 

maximum  number  of  dependent  entities  for  the  relation. 


ARGUMENTS : 


IND-EC-NO 

DEP-EC-NO 

RC-NAME 

RC-NO 

MAX-NO-DEP-ENT 

RTN-STATUS 


DSPLY[S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY[X(30) ] 
DSPLY [S9 (9) ] 
DSPLY [S9 (9) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 
ERRPRO 
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NAME:  VERLUW 

PURPOSE:  VERIFY  A  LOGICAL  UNIT  OF  WORK  BY  NDML  COUNT 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERLUW 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  ALL  INFORMATION  FROM  LOG_UNIT_WCRX 
TABLE  GIVEN  LUW  NAME  ( LUW_NAME ) 


DSPLY [X (30) ] 
DSPLY [ S9 (9) ] 
DSPLY [X ( 5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ARGUMENTS : 


LUW-NAME 

FOUND 

RET-STATUS 


ROUTINES  CALLED: 
ERRPRO 


3-1074 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERMAPD 

PURPOSE:  VERIFY  IF  A  DATAFIELD  CAN  BE  MAPPED  TO 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERMAPD 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  FIND  OUT  WHETHER 

1)  THE  DATAFIELD  REPEATS 

2)  THE  DATAFIELD  HAS  COMPONENTS 

IF  BOTH  CONDITIONS  ARE  TRUE,  THE  DATAFIELD 
SHOULD  NOT  BE  MAPPED  TO.  SET  THE  CAN-MAP-FLAG 
TO  "N". 


ARGUMENTS : 


DF-ID  DSPLY [X ( 30) ] 

CAN-MAP-FLAG  DSPLY [X] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVPET 

ERRPRO 

ROUTINES  CALIjED: 


ERRPRO 


3-1075 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERMOD 

PURPOSE:  verify  the  existence  of  a  model  and  return  the  unique 
number. 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERMOD 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  a  model 
and  return  the  unique  number  assigned  to  the  model 
class. 


ARGUMENTS : 


MODEL-NAME  DSPLY[X(30)] 

MODEL-NO  DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1076 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME :  VERMPDF 

PURPOSE:  VERIFY  IF  THE  DATA  FIELD  IS  MAPPED 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERMPDF 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


CHECK  IF  THE  FIELD  HAS  A  CS-IS  MAPPING. 

IF  A  MAPPING  IS  FOUND  IN  PROJECT_DATA_FIELD 
RETURN  A  VALUE  OF  1  IN  FOUND-FLAG. 


ARGUMENTS : 


DB-ID 

RT-ID 

DF-ID 

FOUND 

RET-STATUS 


DSPLY [ S9 (9 ) ] 
DSPLY [X (30)  ] 
DSPLY [X (30) ] 
DSPLY [S9 (9)  ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


3-1077 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERMPDT 

PURPOSE:  DETERMINE  ASSOCIATIONS  OF  DATA  TYPE  WITH  MOD 
PARAMETER 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  VERMPDT 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Determine  if  a  data  type  is  currenly  associated 

with  a  verification  module  and  its  associated  parameters. 


ARGUMENTS : 


DATA-TYPE-NAME 
USAGE -COUNT 
RET-STATUS 


DSPLY[X(30)  ] 
DSPLY[S9 (9)  ] 
DSPLY[X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1078 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERMUNI 

PURPOSE:  VERIFY  IF  THE  DATA  FIELD  IS  MAPPED 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERMUNI 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


CHECK  IF  THE  FIELD  HAS  A  UNION  MAPPING. 
IF  A  MAPPING  IS  FOUND  IN  ECRTUD 
RETURN  A  VALUE  OF  1  IN  FOUND-FLAG. 


ARGUMENTS : 


DF-NO  DSPLY[S9 (9) ] 
FOUND  DSPLY[S9 (9) ] 
RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1079 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERNMA 

PURPOSE:  verify  the  existence  of  an  attribute  class  in  a 
model . 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERNMA 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  an  attribute 
class  in  a  model  and  return  the  attribute  number  for 
either  a  primary  name  or  an  alias  name. 


ARGUMENTS : 


AC-NAME 

MODEL-NO 

AC-NAME-TYPE 

AC-NO 


DSPLY[X (30) ] 
DSPLY[S9 (9)  ] 
DSPLY[X(8) ] 
DSPLY(S9 (9)  ) 


INCLUDE  FILES: 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 
ERRPRO 


3-1080 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERNME 

PURPOSE:  verify  the  existence  of  an  entity  class  in  a  model. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERNME 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  C DM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  an  entity 
class  in  a  model  and  return  the  entity  number  for  either 
a  primary  name  or  an  alias  name. 


ARGUMENTS : 


EC-NAME 

MODEL-NO 

EC-NAME-TYPE 

EC-NO 


DSPLY[X(30) ] 
DSPLY[S9 (9)  ] 
DSPLY[X(8)  ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1081 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VEROAC 

PURPOSE:  verify  the  existence  of  an  owned  attribute  class  for 
an  entity. 

LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  VEROAC 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  an  owned 
attribute  class  for  an  entity  returning  its 
entity-class — no. 


ARGUMENTS : 


AC-NO 

EC-NO 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1082 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERPARM 

PURPOSE:  RETRIEVE  PARAMETERS  FOR  A  MODULE  NAME. 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  VERPARM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SELECT  PARAMETER  NAME  (PARM_NAME) , 

PARAMETER  NUMBER  (PARM__ID)  AND  DATA-TYPE-NAME 
FROM  MODULE_PARAMETER  AND  POPULATE  TABLE 
FOR  A  GIVEN  MODULE  NAME  (MOD_ID) 


ARGUMENTS : 


RECRD 

DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ALGTBL 

ERRPRO 


CMP-TABLE 

RET-STATUS 


ROUTINES  CALLED: 


UERROR 

ERRPRO 


3-1083 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERPART 

PURPOSE:  RETRIEVE  PARTITION  NUMBER  FOR  A  GIVEN  EC  NO.  &  RT  NO. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERPART 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  HORIZONTAL  PARTITION  NUMBER  FROM 
HORI ZONTAL_PART  FOR  A  GIVEN  ENTITY 
NUMBER  AND  RECORD  TYPE  NUMBER. 


ARGUMENTS : 


EC-NO 

RT-NO 

HP-NO 

FOUND 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY [ S9 ( 9  )  ] 
DSPLY[S9 (9)  ] 
DSPLY [S9 (9)  ] 
DSPLY [X (5)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1084 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERPASS 

PURPOSE:  SELECT  DB  PASSWORD  INFORMATION  FOR  THE  INPUT  DATABASE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERPASS 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS: 


DB-ID 

DB-PASS 


DSPLY[S9 (9) ] 
DSPLY[X(30) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1085 


PS  620341100 
30  September  1990 


DOCGROUP  PS 4 1100  Module  Documentation 


NAME:  VERPCB 

PURPOSE:  SELECT  ALL  PSB  INFO  FROM  PSB_PCB  FOR  A  DATABASE 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  VERPCB 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


DB-ID  DSPLY [S9 (9) ] 
PSB-NAME  DSPLY [X (30) ] 
PSB-SEQ-NO  DSPLY [S9 (9 ) ] 
KEY-FB-LEN  DSPLY[S9(9)] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ERRPRO 


3-1086 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERPSB 

PURPOSE:  VERIFIES  THE  EXISTANCE  OF  A  PROGRAM  STATUS  BLOCK  FOR 
AN  IMS  DATABASE 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERPSB 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  VERIFIES  THE  EXISTANCE  OF  A  PROGRAM  STATUS  BLOCK 
FOR  AN  IMS  DATABASE. 


ARGUMENTS : 


PS B- NAME 

NDDL-COUNT 

RET-STATUS 


DSPLY[X(8) ] 
DSPLY[S9 (9)  ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1087 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME  z  VERRCB 

PURPOSE:  NDML  TO  VERIFY  AN  RC_NO  IN  RC_BASED_REC_SET  FOR  DROP 
COMMANDS 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERRCB 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


RC-NO 

NDDL-STATUS 


DSPLY [ S9 (9 ) ] 
DSPLY [S9 (9 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1088 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERRCBS 

PURPOSE:  verify  if  there  are  any  mapping  to  a  set  found  in 
RC_BASED_REC_SET . 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERRCBS 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  if  there  are  any  mapping 
to  a  set  found  in  RC  BASED  REC  SET. 


DSPLY [S9 (9) ] 
DSPLY [X (30) ] 
DSPLY [S9 (9) ) 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ARGUMENTS : 


DB-ID 

SET-ID 

FOUND 


ROUTINES  CALLED: 


ERRPRO 


3-1089 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERRCC 

PURPOSE:  verify  if  the  relation  class  is  complete. 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  VERRCC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  if  the  relation  class  is 
complete. 


DSPLY [S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY [S9 (9)  ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ARGUMENTS : 


RC-NO 

RETURN-STATUS 

KC-NO 


ROUTINES  CALLED: 
ERRPRO 


3-1090 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERRCMP 

PURPOSE:  verify  whether  a  member  has  been  mapped  to 
clsiss  • 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERRCMP 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  whether  a  member  has  been 
mapped  to  a  relation  class. 


ARGUMENTS : 


DB-ID 
SET-ID 
MEMBER- ID 
FOUND 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


DSPLY[S9 (9)  ] 
DSPLY [X ( 30)  ] 
DSPLY [X ( 30)  ] 
DSPLY [S9 (9) ) 


ROUTINES  CALLED: 


ERRPRO 


relation 


3-1091 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERRCNM 

PURPOSE:  VERIFY  EXISTANCE  OF  A  RELATION  IN  A  MODEL 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERRCNM 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  VERIFIES  THE  EXISTANCE  OF  A  RELATION  GIVEN  THE 
ENTITY  NAMES  RELATION  NAME  AND  MODEL. 


ARGUMENTS : 


TO-MOD-NO 

IND-EC-NAME 

DEP-EC-NAME 

RC-NAME 

RC-NO 


DSPLY [S9 (9)  ] 
DSPLY [ X ( 3  0 ) ] 
DSPLY [X( 30) ] 
DSPLY [X( 30)  ] 
DSPLY [S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 


VERENT 

VERLR 

ERRPRO 


3-1092 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERRCST 

PURPOSE:  REPORT  WHETHER  A  RC  TO  SET  MAP  EXISTS. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERRCST 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  WILL  REPORT  WHETHER  A  RC  TO  SET  MAP 
EXISTS. 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ARGUMENTS : 


RC-NO 

FOUND 


ROUTINES  CALLED: 
ERRPRO 


3-1093 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERRCT 

PURPOSE:  verify  the  existence  of  a  relation  class. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERRCT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  a  relation 
class  and  return  the  relation  class  type. 


ARGUMENTS : 


RC-NO 

RC-TYPE 

RTN-STATUS 


DSPLY[S9 (9) ] 
DSPLY [X ( 10)  ] 
DSPLY[S9 (9)  ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1094 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERREC 

PURPOSE:  check  the  existence  of  a  data  base  record  type. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERREC 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  check  the  existence  of  a  data 
base  record  type. 


ARGUMENTS : 


DB-NAME 

RT-ID 

DB-ID 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


DSPLY[X ( 30) ] 
DSPLYfX (30) ] 
DSPLY[S9 (9)  ] 


ROUTINES  CALLED: 


ERRPRO 


3-1095 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERRNG 

PURPOSE:  RETRIEVE  A  DOMAIN  RANGE  FROM  THE  DB 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERRNG 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


RETRIEVE  A  DOMAIN  RANGE  FROM  THE  DB 


ARGUMENTS : 


DOM-NO 

DOM-RANGE 

ERR-CNTR 

RET-STATUS 


DSPLY [S9 (9) ] 
RECRD 

DSPLY [S9 (9) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1096 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERROJ 

PURPOSE:  VERIFY  A  RECORD  OUTER  JOIN  MAPPING  EXISTS  IN  THE  CDM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERROJ 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


ARGUMENTS : 


RC-NO 

EC-NO 

RT-NO 

JOIN-TYPE 

RET-STATUS 


DSPLY [S9 (9)  ] 
DSPLY[S9 (9)  ] 
DSPLY [S9 (9) ] 
DSPLY [X( 10) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1097 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERROJR 

PURPOSE:  VERIFY  A  RECORD  OUTER  JOIN  MAPPING  EXISTS  IN  THE  CDM 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  VERROJR 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


ARGUMENTS : 


RT-NO 

RC-NO 

EC-NO 

JOIN-TYPE 

RET-STATUS 


DSPLY [S9 (9) ] 
DSPLY[S9  (9) ] 
DSPLY [S9  (9)  ] 
DSPLY [X ( 10 )  ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1098 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERRPS 

PURPOSE:  VERIFY  IF  THERE  ARE  APPLI  WRITTEN  AGAINST  A  SPEC  DB 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERRPS 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


DB-ID 

APPL-FLAG 

RET-STATUS 


DSPLY [S9 (9) ] 
DSPLY [X] 
DSPLY [X ( 5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1099 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERRSET 

PURPOSE:  VERIFIES  THE  EXISTANCE  OF  A  SET. 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  VERRSET 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  VERIFIES  THE  EXISTANCE  OF  A  SET. 


ARGUMENTS : 


DB-ID 

SET-ID 

SET-NO 

FOUND-STATUS 


DSPLY[S9 (9) ] 
DSPLY [ X ( 30) ] 
DSPLY[S9 (9)  ] 
DSPLY [S9 (9)  ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ERRPRO 


3-1100 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERRSUS 

PURPOSE:  VERIFIES  THi»T  A  SOFTWARE  MODULE  USES  A  RECORD  SET 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERRSUS 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  Verify  that  a  software  module  uses  a 
record  set. 


DSPLY[S9 (9) } 
DSPLY[S9 (9) ] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ARGUMENTS : 


SET-NO 

FOUND 

RET-STATUS 


ROUTINES  CALLED: 
ERRPRO 


3-1101 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERRT 

PURPOSE:  VERIFIES  THE  EXISTANCE  OF  A  RECORD  TYPE. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERRT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  VERIFIES  THE  EXISTANCE  OF  A  RECORD  TYPE. 


ARGUMENTS : 


DB-ID 

RT-ID 

RT-NO 

FOUND-STATUS 


DSPLY [S9 (9) ] 
DSPLY [ X ( 30)  ] 
DSPLY [S9 ( 9 ) ] 
DSPLY [S9 ( 9 ) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1102 


PS  620341100 
30  September  1990 


DOCGROUP  PS41100  Module  Documentation 


NAME:  VERRTID 

PURPOSE:  NDML  COMMAND  TO  VERIFY  THE  EXISTENCE  OF  A  RECORD  TYPE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERRTID 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  RECORD  TYPE  NUMBER  (RT_NO)  FROM  THE 
RECORD_TYPE  TABLE  GIVEN  THE  RECORD  TYPE  ID  (RT_ID) 

-  SELECT  THE  RT_NO  FROM  THE  RECORD_TYPE 
TABLE  WHERE  THE  RT_ID  EQUALS  THE  USER- 
PROVIDED  RT  ID. 


ARGUMENTS : 


DB-NAME 

RT-ID 

RT-NO 

DB-ID 


DSPLY[X(30)  ] 
DSPLY[X(30)  ] 
DSPLY[S9 (9)  ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


3-1103 


PS  620341100 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  VERRTNO 

PURPOSE:  RETURN  THE  RECORD  AND  DATABASE  GIVEN  THE  RECORD-NO 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERRTNO 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


RT-NO 

DB-ID 

RT-ID 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 
DSPLY [ X ( 3  0 )  ] 
DSPLY[X(5)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1104 
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NAME:  VERRULE 

PURPOSE:  CHECKS  IF  DISTRIBUTED  RULES  EXIST  FOR  AN  ENTITY 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  VERRULE 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


ARGUMENTS : 


DSPLY [S9 (9) ] 
DSPLY[X(8) ] 
DSPLY [X (8) ] 
DSPLY [X( 5)  ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


EC-NO 

DISTR-UPDT-RULE 

DISTR-RETR-RULE 

RET-STATUS 


ROUTINES  CALLED: 
ERRPRO 


3-1105 
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NAME:  VERSCH 

PURPOSE:  SELECT  SCHEMA  NAME  INFORMATION  FROM  S CHEMA_NAMES 
TABLE  FOR  A  DB 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERSCH 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


DB-ID 

SCH-NAME 

SS-NAME 

DB-LOC 


DSPLY[S9 (9)  ] 
DSPLY[X(30)  ] 
DSPLY[X(30) ] 
DSPLY[X(30)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1106 
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NAME:  VERSDT 

PURPOSE:  For  a  given  domain  number,  return  its  standard  data 
type  name. 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERSDT 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


For  a  given  domain  number,  this  routine  will  return 
its  standard  data  type  name. 


ARGUMENTS : 


DOM-NO 

DATA-TYPE-NAME 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[X(30) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


SRVRET 

ERRCDM 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1107 
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NAME:  VERSMOD 

PURPOSE:  RETRIEVE  META  DATA  FROM  SOFTWARE_MODULE  GIVEN  MODULE 
NAME. 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERSMOD 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  ALL  INFORMATION  FROM  SOFTWARE 
MODULE  TABLE  GIVEN  MODULE  NAME  (MOD_IDy 


ARGUMENTS : 

MOD- ID 

DSPLY[X(10) ] 

LANG-NAME 

DSPLY[X(10) ] 

MOD-TITLE 

DSPLY[X(30) ] 

MOD-ABSTRACT 

DSPLY[X(60) ] 

LATEST-REV-DATE 

DSPLY [X (9) ] 

STATUS-IND 

DSPLY [X] 

FOUND 

DSPLY[S9 (9) ] 

RET-STATUS 

DSPLY [X (5) ] 

INCLUDE  FILES: 

ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 

ERRPRO 

3-1108 
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NAME:  VERSMS 

PURPOSE:  fetch  the  member  count  for  a  given  set. 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  VERSMS 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  fetch  the  member  count  for  a  given 
set. 


ARGUMENTS : 


DB-ID 

SET-ID 

TOTAL-NUM-MEM 

RT-ID-OF-OWNER 


DSPLY[S9 (9) ] 
DSPLY [X(30)  ] 
DSPLY[S9 (9)  ] 
DSPLY [X( 3  0)  ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ERRPRO 


3-1109 
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NAME:  VERSTID 

PURPOSE:  NDML  COMMAND  TO  VERIFY  THE  EXISTENCE  OF  A  SET 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERSTID 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  SET  NUMBER  (SET_NO)  FROM  THE 
RECORD_SET  TABLE  GIVEN  THE  SET  ID  (SET_ID) 
AND  THE  DATABASE  NAME  ( DB_NAME ) 

-  SELECT  THE  SET_NO  FROM  THE  RECORD_SET 
TABLE  WHERE  THE  SET_ID  EQUALS  THE  USER- 
PROVIDED  SET  ID. 


DSPLY[X(30) ] 
DSPLY [X (30)  ] 
DSPLY[S9 (9) ] 
DSPLY [S9 (9)  ] 


INCLUDE  FILES: 


SRVRET 

ERRCDM 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


ARGUMENTS : 


DB-NAME 

SET-ID 

SET-NO 

DB-ID 


3-1110 
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NAME:  VERT AG 

PURPOSE:  VERIFY  THE  EXISTENCE  OF  AN  ATTRIBUTE  USE  CLASS 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERTAG 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  VERIFIES  THAT  A  TAG  NUMBER  EXISTS  ON  THE 
CDM  GIVEN  A  TAG  NAME  AND  AN  ENTITY. 

MODIFIED  2/19/87  TO  QUALIFY  ON  DATA_TYPE_IND  AS  WELL  FOR 
RELEASE  2*25 

MODIFIED  11/ 19/87  TO  QUALIFY  ON  MODEL_NO  =  1,  THIS  ROUTINE 

IS  USED  ONLY  BY  MAPPING  COMMANDS  WHICH  MUST 

HAVE  ENITIES  FROM  THE  INTEGRATED_MODEL 

(MODEL_NO  =  1)  .  WITHOUT  THIS  QUALIFICATION 

THE  SELECT  WILL  RETRIEVE  ALL  TAGS  THAT  MATCH 

ON  NAME  REGARDLESS  OF  MODEL. 


ARGUMENTS: 


EC-NAME 

TAG-NAME 

TAG-NO 

OBJ-DATA-TYPE 

RET-STATUS 


DSPLY [X ( 30) ] 
DSPLY[X(30)  ] 
DSPLY [S9 (9) ] 
DSPLY [X( 30)  ) 
DSPLY [X( 5)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


ERRPRO 


3-1111 
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NAME:  VERTAP 

PURPOSE:  NDML  TO  VERIFY  THE  EXISTENCE  OF  A  TAG  IN  AUC_PARM 
TABLE 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERTAP 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


TAG-NO 

NDDL-STATUS 


DSPLY[S9 (9) ] 
DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1112 
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NAME:  VERTAUC 

PURPOSE:  NDML  TO  VERIFY  THE  EXISTENCE  OF  A  TAG  IN 
AUC_IS_MAPPING  TABLE 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERTAUC 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


TAG -NO 
NDDL-STATUS 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1113 
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NAME:  VERTKCM 

PURPOSE:  VERIFY  IF  A  TAG  IS  A  MEMBER  IN  A  SPECIFIED  KEY 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  VERTKCM 

SOURCE  FILE  TYPE:  PCO 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  MODULE  WILL  VERIFY  IF  THE  KEY  CLASS 
EXISTS  AND  HOW  MANY  EXISTS  FOR  THE  ENTITY 

AND  IF  THE  SPECIFIED  TAG  IS  A  MEMBER  OF  THE  KEY. 

-  THIS  ROUTINE  WILL  DETERMINE  IF  A  PARTICULAR 
TAG  IS  A  MEMBER  OF  THE  SPECIFIED  KEY  AS  WELL 
AS  COUNT  THE  NUMBER  OF  KEY  CLASS  MEMBERS. 


ARGUMENTS : 


KC-NO 
TAG-NO 
TAG- FOUND 
KC-COUNT 
RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[S9(9) ] 
DSPLY[9] 
DSPLY [99] 
DSPLY[X (5) ] 


INCLUDE  FILES: 


ERRCDM 

CHKCDM 

EOD 

ERRPRO 

ROUTINES  CALLED: 


SQLSCA 

SQLBS1 

SQLSCH 

SQLSCC 

SQLTOC 

SQLOSQ 

SQLADR 

SQLAB1 

SQLEXE 

UERROR 

SQLCLS 

SQLAD1 

SQLFCH 

ERRPRO 
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NAME  z  VERTMAP 

PURPOSE:  COMTROL  MODULE  TO  CHECK  TAG  MAPPINGS  FOR  DROP 
COMMANDS 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERTMAP 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  This  module  calls  three  routines  to  check 
if  mappings  exist  for  a  given  tag_no.  It  will 
be  used  to  check  tag  mappings  for  the  following 
commands  :  DROP  ENTITY,  DROP  ATTRIBUTE, 

ALTER  ENTITY (DROP  ATTRIBUTE),  DROP  RELATION, 
DROP  MODEL,  ALTER  RELATION ( DROP  MIGRATES). 


Call  VERTAP,  VERTPDI ,  VERTAUC  to  verify  the  existence 
of  the  given  tag-no  in  three  CDM  tables:  AUC_PARM, 
PROJECT_DATA_ITEM,  and  AUC_IS_MAPPING . 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


ERRPRO 

ROUTINES  CALLED: 


VERTAP 

UERROR 

VERTPDI 

VERVWQU 

VERTAUC 

ERRPRO 


ARGUMENTS : 


TAG-NO 

FOUND-STATUS 


3-1115 
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NAME l  VERTPDI 

PURPOSE:  NDML  TO  VERIFY  THE  EXISTENCE  OF  A  TAG  IN 
PROJECT_DATA_ITEM  TABLE 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERTPDI 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


TAG-NO 

NDDL-STATUS 


DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1116 
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NAME:  VERTYP 

PURPOSE:  verifies  that  a  type  identification  for  a  data  type 
is  valid. 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERTYP 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  verifies  that  a  type  identification 
for  a  data  type  is  valid. 


DSPLY[X(1) ] 
DSPLY[S9 (9) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


SRVRET 

ERRCDM 

ERRPRO 


ARGUMENTS : 


TYPE-ID 

FOUND 

RET-STATUS 


ROUTINES  CALLED: 
ERRPRO 


3-1117 
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NAME:  VERUDT 

PURPOSE:  VERIFY  DATATYPE  OF  UNION  DISCRIMINATOR 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERUDT 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS: 


DB-ID 

RT-ID 

DF-ID 

UNION-VALUE 

ERR-STATUF 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY [ X ( 3  0 ) ] 
DSPLY[X(30) ] 
DSPLY [X( 30) ] 
DSPLY [S9 (9) ] 
DSPLY [X( 5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


CONVCHR 

ERRPRO 


3-1118 
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NAME:  VERUDTN 

PURPOSE:  verify  the  existence  of  a  USER  DEFINED  DATA  TYPE 
(USERDATATYPE) /USDF 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERUDTN 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  a 
USER  DEFINED  DATA  TYPE  (USERDATATYPE) /USDFDT. 


ARGUMENTS : 


DOMAIN-NO 

DATA-TYPE-NAME 

USDF-DT-NO 


DSPLY[S9 (9) ) 
DSPLY[X(30)  ) 
DSPLY[S9 (9)  ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1119 
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NAME:  VERUNIN 

PURPOSE:  RETRIEVE  ALL  INFORMATION  FOR  A  GIVEN  UNION. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERUNIN 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  SELECT  THE  COMPARISON  OP  FROM  THE  ECRTUD 
TABLE  FOR  A  GIVEN  RECORD  NUMBER  (RT_NO) 

ENTITY  NUMBER  (EC_NO)  DATA  FIELD  NUMBER  (DF_NO) 
AND  UNION  VALUE. 


ARGUMENTS : 


RT-NO 

EC-NO 

DF-NO 

UNION-VALUE 

COMPARISON-OP 

FOUND 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY [S9 (9)  ] 
DSPLY[S9 (9) ] 
DSPLY [X ( 30)  ] 
DSPLY [XX] 
DSPLY [S9 (9) ] 
DSPLY [X( 5) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 

ROUTINES  CALLED: 


ERRPRO 


3-1120 
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NAME l  VERVAL 

PURPOSE:  SELECT  A  GIVEN  VALUE  OF  A  DOMAIN  FROM  THE  CDM 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERVAL 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SELECT  A  GIVEN  VALUE  OF  A  DOMAIN  FROM  THE  DB 


ARGUMENTS : 


DOM-NO 

DOM-VALUE 

ERR-CNTR 

RET-STATUS 


DSPLY[S9 (9) ] 
DSPLY[X(30) ] 
DSPLY [ S9 ( 9 ) ] 
DSPLY[X(5)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME:  VERVIEW 

PURPOSE:  verify  the  existence  of  a  view  in  the  system. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VERVIEW 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


This  routine  will  verify  the  existence  of  a  view  in 
the  system. 


ARGUMENTS : 


VIEW-NAME 

DISTINCT-IND 

VIEW-NO 

RET-STATUS 


DSPLY [X (30) ] 
DSPLY[X] 
DSPLY [S9 (9) ] 
DSPLY [X( 5)  ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 


3-1122 
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NAME:  VERVWQU 

PURPOSE:  VERIFIES  THE  NONEXISTENCE  OF  A  TAG  IN  THE 
VIEW_QUAL_XREF 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  VERVWQU 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  WILL  VERIFY  THAT  A  TAG  DOES  NOT 
EXIST  IN  THE  CDM  TABLE  VIEW_QUAL_XREF  WHICH 
HOLDS  ES  MAPPING  INFORMATION. 


ARGUMENTS : 


TAG-NO  DSPLY [ S9 ( 9 ) ] 

NDDL-STATUS  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


ERRCDM 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 
ERRPRO 
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NAME l  VMODPRM 

PURPOSE:  BUILD  PARAMETER  LIST  FOR  VERIFICATION  MODULE 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VMODPRM 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ARGUMENTS : 


DOM-NO  DSPLY [ S9 ( 9 ) ] 
CRT-APNAME  DSPLY [ X ( 1 0 ) ] 
RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


VERSDT 

UERROR 

INSPARM 

ERRPRO 
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NAME:  VOMAPS 

PURPOSE:  ENFORCES  AUC  TO  SET  MAPPING  RULES. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  VOMAPS 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  ENFORCES  THE  FOLLOWING  AUC  TO  SET 
MAPPING  RULES: 

1.  AN  AUC  ALWAYS  MAPS  TO  THE  SAME 
DATABASE  UNLESS  ENTITY  IS  HP. 

2.  THE  SET  OWNERS  RECORD  TYPES  MUST  BE 
IDENTICAL. 

IF  NO  RULES  ARE  BROKEN,  THE  RETURN  CODE  IS  1, 

OTHERWISE  ZERO. 

PERFORM  AN  NDML  SELECT  TO  OBTAIN  INFORMATION  ON  PREVIOUS  MAP¬ 
PINGS  FROM  THE  TAG  NUMBER.  FOR  EACH  ROW  SELECTED,  ENSURE 
THAT  THE  ABOVE  RULES  ARE  ENFORCED.  IF  NOT,  GENERATE  AN 
APPROPRIATE  ERROR  MESSAGE  AND  RETURN  WITH  OUT-CODE  EQUAL 
ZERO,  OTHERWISE  OUT-CODE  EQUALS  ONE. 


ARGUMENTS : 


IN-DB-NO 

IN-OWNER-REC-NAME 
IN-TAG-NO 
HZ -PART-FLAG 


IN-PREF-NO 

OUT-CODE 


DSPLY[S9 (9) ] 
DSPLY[X(30) ] 
DSPLY[S9 (9) ] 
DSPLY[X] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


UERROR 

ERRPRO 
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NAME:  WRDSFL 

PURPOSE:  PROGRAM  NAME  WRDSFL 
LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  WRDSFL 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WRDSFL  WRITES  DESCRIPTION  INFORMATION 
FROM  THE  CDM  ONTO  A  FILE. 


ARGUMENTS : 


OBJECT-TYPE  DSPLY [ X ( 3  0 ) ] 


INCLUDE  FILES: 


ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


GETHOST 

GENFIL 

OUTDESC 

ERRPRO 
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NAME:  WRTACKW 

PURPOSE:  RETREIVE  AND  WRITE  ALL  THE  KEYWORDS  ASSOCIATD  WITH  AN 
ATTRIBUTE  CLAS 
LANGUAGE:  VAX-11  COBOL 
SOURCE  FILE:  WRTACKW 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WRTACKW  WILL  RETREIVE  ALL  THE  KEYWORDS  ASSOCIATD 
WITH  AN  ATTRIBUTE  CLASS  AND  COPY  THEM  TO  A  NEW 
ATTRIBUTE  CLASS  (ONE  THAT  WAS  JUST  COPIED) . 


ARGUMENTS : 

OLD-AC-NO  DSPLY [ S9 ( 9 ) ] 

NEW-AC-NO  DSPLY [ S9 ( 9 ) ] 

INCLUDE  FILES: 

SRVRET 

ERRPRO 


ROUTINES  CALLED: 


INSKWAC 

UERROR 

ERRPRO 
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NAME:  WRTALG 

PURPOSE:  GENERATE  A  DEFINE  ALGORITHM  CMD  FOR  A  DATA  ITEM  NAME 

LANGUAGE:  VAX-11  COBOL 

SOURCE  FILE:  WRTALG 

SOURCE  FILE  TYPE:  COB 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CALLED  FROM  GENALG,  THIS  ROUTINE  WILL 
GENERATE  A  'DEFINE  ALGORITHM'  COMMAND  FOR 
EACH  DATA  ITEM  INCLUDED  IN  A  GIVEN  VIEW 


ARGUMENTS : 


MOD- ID 
ALG-USE-CODE 
MOD-INST 
RET-STATUS 


DSPLY [X( 10)  ] 
DSPLY [X] 
DSPLY [S99] 
DSPLY [X (5) ] 


INCLUDE  FILES: 


ERRCDM 

ADDPARM 

ERRPRO 


ROUTINES  CALLED: 


ADDPARM 

GTDIPR 

UERROR 

GTAUCPR 

GTCNTPR 

ERRPRO 
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NAME:  WRTALI 

PURPOSE:  RETRIEVE  ALL  ALIAS  NAMES  OF  AN  ATTRIBUTE  CLASS. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  WRTALI 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  COM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THIS  ROUTINE  WILL  RETRIEVE  ALL  ALIAS 
NAMES  OF  AN  ATTRIBUTE  CLASS  AND  COPY  THEM 
TO  A  NEW  ATTRIBUTE  CLASS  (ONE  THAT  WAS  JUST 
COPIED) . 


ARGUMENTS : 


MODEL-NO 

OLD-AC-NO 

NEW-AC-NO 


DSPLY[S9 (9)  ] 
DSPLY[S9 (9) ] 
DSPLY[S9 (9)  ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 


VERAT'T 

INSACNM 

UERROR 

UWARN 

ERRPRO 
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NAME:  WRTANAM 

PURPOSE:  RETRIEVE  AND  COPY  ALL  THE  NAMES  (PRIMARY  AND  ALIAS) 
OF  AN  ATTRIBUTE. 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  WRTANAM 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WRTANAM  WILL  RETRIEVE  ALL  THE  NAMES  (PRIMARY 
AND  ALIAS)  OF  AN  ATTRIBUTE  CLASS  AND  COPY  THEM 
TO  A  NEW  ATTRIBUTE  CLASS  (ONE  THAT  WAS  JUST 
COPIED) . 


ARGUMENTS : 


OLD-AC-NO  DSPLY [ S9 ( 9 ) ] 

NEW-AC-NO  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 


INSACNM 

UERROP 

ERRPRO 
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NAME:  WRTDITM 

PURPOSE:  GENERATE  A  'DATA  ITEM'  LIST  FOR  A  GIVEN  VIEW  NUMBER 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  WRTDITM 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CALLED  FROM  GENVIEW,  THIS  ROUTINE  GENERATES 
A  'DATA  ITEM'  LIST  FOR  THE  NDDL  'CREATE  VIEW' 

COMMAND. 

MODIFIED  MAR  17,1987  BY  R.  STEWART  TO  CHANGE  ORDER  BY  TO  DINO 


ARGUMENTS : 


VIEW-NO  DSPLY [ S9 ( 9 ) ] 

RET-STATUS  DSPLY [ X ( 5 ) ] 


INCLUDE  FILES: 


ADDPARM 

ERRCDM 

ERRPRO 


ROUTINES  CALLED: 


ADDPARM 

ERRPRO 
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NAME  Z  WRTDSTP 

PURPOSE:  GENERATES  THE  NDDL  CREATE  DESCRIPTION  TYPE  COMMAND 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  WRTDSTP 

SOURCE  FILE  TYPE:  COB 

HOST*. 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  THIS  ROUTINE  WILL  ACTUALLY  GENERATE  THE 
NDDL  COMMAND  TO  A  FILE  OR  THE  SCREEN  TO 
CREATE  THE  DESCRIPTION  TYPE. 


DSPLY[X(30) ] 
DSPLY[X(5) ] 


INCLUDE  FILES: 


ERRCDM 


ARGUMENTS : 


DESC-TYPE 

RET-STATUS 


ROUTINES  CALLED: 
ADDPARM 
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NAME:  WRTECKW 

PURPOSE:  RETREIVE  AND  COPY  ALL  THE  KEYWORDS  ASSOCIATED  WITH  AN 
ENTITY  CLASS. 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  WRTECKW 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WRTECKW  WILL  RETREIVE  ALL  THE  KEYWORDS  ASSOCIATED 
WITH  AN  ENTITY  CLASS  AND  COPY  THEM  TO  A  NEW  ENTITY 
CLASS  (ONE  THAT  WAS  JUST  COPIED) . 


ARGUMENTS: 


OLD-EC-NO  DSPLY [ S9 ( 9 ) ] 

NEW-EC-NO  DSPLY [ S9 ( 9 ) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 


INSKWEC 

UERROR 

ERRPRO 
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NAME:  WRTENAM 

PURPOSE:  RETRIEVE  AND  COPY  ALL  THE  ALIAS  NAMES  OF  AN  ENTITY 
CLASS. 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  WRTENAM 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WRTENAM  WILL  RETRIEVE  ALL  THE  ALIAS  NAMES 
OF  AN  ENTITY  CLASS  AND  COPY  THEM  TO  A  NEW 
ENTITY  CLASS  (ONE  THAT  WAS  JUST  COPIED) . 


ARGUMENTS : 


OLD-EC-NO 

NEW-EC-NO 

MODEL-NO 


DSPLY[S9 (9) ] 
DSPLY[S9 (9)  ] 
DSPLY[S9 (9) ] 


INCLUDE  FILES: 


SRVRET 

ERRPRO 


ROUTINES  CALLED: 


VERENT 
U ERROR 
INSECNM 
ERRPRO 
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NAME:  WRTOAT 

PURPOSE:  Generate  the  create  attribute  commands  for  owned 
*  s 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  WRTOAT 
SOURCE  FILE  TYPE:  COB 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  this  routine  was  called  from  modoatt  to  process 

and  generate  the  nddl  commands  for  owned  attributes 
including  the  keywords,  descriptions,  and  aliases. 


ARGUMENTS: 

EC-NO 

DSPLY[S9(9) ] 

TAG-NO 

DSPLY[S9 (9) ] 

AC-NO 

DSPLY [S9 (9) ] 

AC-NAME 

DSPLY[X(30) ] 

AC-NAME-TYPE 

DSPLY [X( 30) ] 

DOMAIN-NAME 

DSPLY [X(30) ] 

DEP-FLAG 

DSPLY [9] 

NKEY-FLAG 

DSPLY [9] 

DESC-FLAG 

DSPLY [9] 

KEYWORD-FLAG 

DSPLY[9] 

ALIAS -FLAG 

DSPLY [9] 

DEP-EC-LIST 

RE  CRD 

RETURN-STATUS 

DSPLY [S9 (9) ] 

INCLUDE  FILES: 

CHKCDM 

ERRCDM 

DEPECL 

ERRPRO 

ROUTINES  CALLED: 


FNDEC 

VERKCM 

GENATT 

GENDESC 

GENALI 

ERRPRO 
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NAME:  WRTSLCT 

PURPOSE:  GENERATE  THE  'AS  SELECT'  CLAUSE  FOR  THE  CREATE  VIEW 
COMMAND 

LANGUAGE:  VAX- 11  COBOL 
SOURCE  FILE:  WRTSLCT 
SOURCE  FILE  TYPE:  PRC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  CALLED  FROM  GENVIEW,  THIS  ROUTINE  WILL  ASSIGN 
A  ABBR  CODE  FOR  EACH  UNIQUE  ENTITY  NAME  RETRIEVED 
FOR  A  GIVEN  VIEW  NUMBER  IN  THE  CDM  AND  THEN 
GENERATE  A  'AS  SELECT'  CLAUSE  FOR  THAT  VIEW. 
MODIFIED  TO  REMOVE  THE  LOADING  OF  THE  TABLE. 


DSPLY[S9 (9) ] 

DSPLY(X] 

RECRD 

DSPLY[X(5)  ] 


ADDPARM 

ERRCDM 

ECTBL 

ERRPRO 

ROUTINES  CALLED: 


ADDPARM 

ERRPRO 


ARGUMENTS : 


VIEW-NO 

DISTINCT-IND 

EC-NAME-TABLE 

RET-STATUS 


INCLUDE  FILES: 
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NAME:  WRTWHCL 

PURPOSE:  GENERATE  WHERE  CLAUSE  FOR  CREATE  VIEW  COMMAND. 

LANGUAGE:  VAX- 11  COBOL 

SOURCE  FILE:  WRTWHCL 

SOURCE  FILE  TYPE:  PRC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


-  GENERATE  A  'WHERE*  CLAUSE  FOR  THE  'CREATE  VIEW' 

COMMAND  CONTAINING  ALL  QUALIFICATION  CRITERIA  TEXT  ITEMS  FOR  A 
GIVEN  VIEW  NUMBER. 


ARGUMENTS : 


VIEW-NO 

EC-NAME-TABLE 

RET-STATUS 


INCLUDE  FILES: 


ADDPARM 

ERRCDM 

SRVRET 

ECTBL 

ERRPRO 

ROUTINES  CALLED: 


ADDPARM 

SELTGEC 

UERROR 

ERRPRO 


DSPLY[S9 (9) ] 
RECRD 

DSPLY[X(5) ] 
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NAME:  ADDNODE 

PURPOSE:  ADD  A  NEW  NODE  ONTO  THE  END  OF  A  LINKED  LIST 

LANGUAGE:  C 

SOURCE  FILE:  ADDNODE 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


LLIST1  * ( *TAILNODE) ,  * ( *CURRENTNODE) ; 

INT  NEWREFNO; 

CALLED  BY: 

BLOOPCK ,  TLOOPCK 
DESCRIPTION : 

THIS  PROGRAM  WILL  ADD  A  NODE  ONTO  THE  END  OF  A  LINKED 
LIST  USED 

WHEN  RETREIVEING  DATA  FROM  THE  DATABASE  IN  A  STRUCTURED 
TREE  FORM 

ARGUMENTS : 


TAILNODE  LLIST1  ** 
CURRENTNODE  LLIST1  ** 
NEWREFNO  INT 

INCLUDE  FILES: 


STDIO 

LLIST 

ROUTINES  CALLED: 


MALLOC 
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NAME:  ADDRNUM 

PURPOSE:  ADO  A  AVAILABLE  NO  OF  A  POOL  NO  BACK  TO  NO  LINKED 

LANGUAGE:  C 

SOURCE  FILE:  ADDRNUM 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


LIST  DATA  STRUCTURE. 

SYNOPSIS 

C  —  ADDRNUM (POOL_NO,  AVAIL_NO) 

COBOL  —  CALL  "ADDRNUM"  USING 

POOL-NO, 

AVAIL-NO. 

FORTRAN  —  CALL  ADDRNUM ( POOLNO ,  AVAILNO) 

INPUT: 

INT  *POOL_NO  ; 

INT  *AVAIL_NO  ; 

OUTPUT: 

DESCRPIPTION 

THIS  ROUTINE  PUT  THE  AVAILABLE  NO  OF  THE  POOL  NO  BACK  TO 
THE  NO 

LINKED  LIST.  THE  ROUTINE  CALLS  'ALLOC'  FUNCTION  TO 
ALLOCATE  SPACE 

FOR  STORING  THE  AVAIL  NO  AND  POOL  NO. 

ARGUMENTS : 


POOL_NO  INT  * 

AVAIL  NO  INT  * 
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NAME:  ADDTXT 

PURPOSE:  THIS  ROUTINE  WRITES  80  CHARACTERS  OF  DESCRIPTIVE  TEXT 

LANGUAGE:  C 

SOURCE  FILE:  ADDTXT 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THE 


COLUMN  2. 
THING. 


TO  THE  USER'S  FILE  OF  GENERATED  NDDL  COMMANDS. 

FIRST  LINE  OF  TEXT  IS  PRECEEDED  BY  A  DOUBLE  QUOTE 
MARK  IN  COLUMN  1  AND  A  NEWLINE  CHARACTER  IN 

THE  LAST  LINE  OF  TEXT  IS  FOLLOWED  BY  THE  SAME 


NOTE  —  THE  DESCRIBE  COMMAND  PROCESSOR  WILL 

INCLUDE 

THE  TRAILING  BLANKS  BETWEEN  THE  QUOTE  MARK 
AND  THE  END  OF  THE  LINE  AS  PART  OF  THE 
DESCRIPTIVE  TEXT  IF  THE  NEWLINE  CHARACTER 
IS  OMITTED. 


SYNOPSIS 

C  —  ADDTXT  (TXT-LINE,  FLAG) 

COBOL  —  CALL  "ADDTXT"  USING  TXT-LINE 

QUOTE-FLAG. 

FORTRAN  —  CALL  ADDTXT  (TXTLIN, FLAG) 

INPUT: 

CHAR  *TXT-LINE[80] 

INT  FLAG 
OUTPUT: 


ARGUMENTS : 


CHAR  * 
INT  * 

ROUTINES  CALLED: 


WRTLIN 


TXT_LINE 

FLAG 
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NAME l  AKCROW 

PURPOSE:  THIS  ROUTINE  ADDS  A  ROW  TO  THE  UNBOUNDED 
KEY_CLASS_LIST 
LANGUAGE:  C 
SOURCE  FILE:  AKCROW 
SOURCE  FILE  TYPE:  C 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  AKCROW (&EC_NO,  &KC_NO,  &KC_NAME , 

&KCMTAGNO, 

&KCM_TAG_NAME)  ; 

COBOL  —  CALL  "AKCROW"  USING 

EC-NO, 

KC-NO, 

KC-NAME , 

KCM-TAG-NO, 

KCM-TAG-NAME . 

FORTRAN  —  CALL  AKCROW (ECNO,  KCNO,  KCNAME,  KCMTAGNO , 
KCMT AGNAME ) 

INPUT: 

INT  *EC_NO  ; 

INT  *KC_KO  ; 

CHAR  *KC_NAME [30]  ; 

INT  *KCM_TAG_NO  ; 

CHAR  *  KM_TAG_NAME [30]  ; 

OUTPUT: 

DESCRPIPTION : 

THIS  ROUTINE  ADDS  A  ROW  TO  THE  UNBOUNDED  KEY_CLASS_LIST 
ADD  EC_NO,  TAG_NO  AND  KCM_TAG_NO 

ARGUMENTS : 


EC_NO  INT  * 

KC_NO  INT  * 

KC_NAME  CHAR  * 

KCM_TAG_NO  INT  * 

KCM  TAG  NAME  CHAR  * 


INCLUDE  FILES: 


KEYLIST 

ROUTINES  CALLED: 


SPRINTF 

ADDKG 

ADDEC 

ADDKCLS 
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NAME:  ADDEC 

PURPOSE:  ADD  THE  ENTITY  NAME  TO  THE  TREE  LIST  STRUCTURE 

LANGUAGE:  C 

SOURCE  FILE:  AKCROW 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C 

ADDEC (&EC_NO) 

COBOL 

CALL  "ADDEC"  USING 

EC-NO. 

FORTRAN 

INPUT: 

INT  *EC  NO  ; 
OUTPUT: 
DESCRPIPTION : 

CALL  ADDEC (ECNO) 

ADD  EC  NO  INTO 

KEYLIST  TREE  DATA  STRUCTURE 

ARGUMENTS : 

EC_NO 

INCLUDE  FILES: 

KEYLIST 

ROUTINES  CALLED: 

MALLOC 

INT  * 
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NAME:  ADDKCLS 

PURPOSE:  ADD  KEY  INFO  TO  THE  UNBOUNDED  KEY_CLASS_LIST 
STRUCTURE 
LANGUAGE:  C 
SOURCE  FILE:  AKCROW 
SOURCE  FILE  TYPE:  C 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  ADDKCLS (&KC_N0,  &KC_NAME) 

COBOL  —  CALL  "ADDKCLS"  USING 

KC-NO, 

KC-NAME , 

FORTRAN  —  CALL  ADDKCLS (  KCNO,  KCNAME) 

INPUT: 

INT  *KC_NO  ; 

CHAR  *KC_NAME [30]  ; 

OUTPUT : 

DESCRPIPTION : 

THIS  ROUTINE  ADDS  KC_NO ,  KC_NAME  TO  THE  UNBOUNDED 
KEY_CLASS_LIST 

ARGUMENTS : 


KC_NO  INT  * 

KC_NAME  CHAR  * 

INCLUDE  FILES: 


KEYLIST 

ROUTINES  CALLED: 


MALLOC 

STRNCPY 
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NAME:  ADDKG 

PURPOSE:  ADD  KCM_TAG  NUMBER  AND  NAME  TO  STRUCTURE 

LANGUAGE:  C 

SOURCE  FILE:  AKCROW 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  ADDKG (&EC_NO,  &KCM_TAG_NO , 

&  KCM_T AG_N AME )  ; 

COBOL  —  CALL  "ADDKG"  USING 

KCM-TAG-NO , 

KCM-TAG-NAME . 

FORTRAN  —  CALL  ADDKG (  KCMTAGNO ,  KCMTAGNAME) 

INPUT: 

INT  * KCM_TAG_NO  ; 

CHAR  *  KM_TAG_NAME [30]  ; 

OUTPUT: 

DESCRPIPTION : 

THIS  ROUTINE  ADDS  KEY  CLASS  MEMBER  INFO  TO  THE  UNBOUNDED 
TO  THE  KEY  CLASS  LIST  TREE  STRUCTURE 

ARGUMENTS : 


KCM_TAG_NO  INT  * 

KCM_TAG_NAME  CHAR  * 

INCLUDE  FILES: 


KEYLIST 

ROUTINES  CALLED: 


MALLOC 

STRNCPY 
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NAME:  ALLATT 

PURPOSE:  SELECT  ALL  THE  ATTRIBUTES  IN  FROM-MODEL  AND  GENERATE 

LANGUAGE:  C 

SOURCE  FILE:  ALLATT 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


NDDL  COMMANDS  TO  CREATE  THE  ATTRIBUTES  , 

THEIR  KEYWORDS, 

ALIAS  AND  DESCRIPTIONS  IN  THE  TO-MODEL 


SYNOPSIS 

C  —  ALLATT (&MODEL_NO,  &MODEL_NAME, 

&KEYWORD_FLAG , 

&ALIAS  FLAG,  &DESC_FLAG)  ; 

COBOL  —  CALL  "ALLATT"-  USING 

MODEL-NO, 

MODEL-NAME, 

KEYWORD-FLAG, 

ALIAS-FLAG, 

DESC-FLAG. 

FORTRAN  —  CALL  ALLATT (MODELNO ,  MODELNAME, 

KEYWORDFLAG,  ALIAS FLAG, 

DESCFLAG) 

INPUT: 

INT  *MODEL_NO  ; 

CHAR  *MODEL_NAME  ; 

INT  *KEYWORD_FLAG  ; 

INT  *ALIAS_FLAG  ; 

INT  *DESC_FLAG  ; 

DESCRPITION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  RETRIEVE  RECORDS  FROM 
ATTRIBUTE_CLASS ,  ATTRIBUTE_NAME ,  DOMAIN_CLASS ,  THEN  USE 

THE 

INFORMATIONS  TO  GENERATE  NDDL  COMMAND  STATEMENT. 
REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


MODEL_NO  INT  * 

MODEL_NAME  CHAR  * 

KEYWORD_FLAG  CHAR  * 

ALIAS_FLAG  CHAR  * 

DESC  FLAG  CHAR  * 


INCLUDE  FILES: 
EOD 
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ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLAD2 

SQLFCH 

STRNCMP 

GENATT 

STRNCPY 

GENDESC 

GENALI 

SQLTOC 

SQLSQS 

SQLOSQ 

SQLAB2 

SQLEXE 


DOCGROUP  PS41100  Module  Documentation 
NAME:  ALLCSET 

PURPOSE:  SELECT  ALL  RELATIONS  IN  THE  CDM  AND  FOR  EACH 

LANGUAGE:  C 

SOURCE  FILE:  ALLCSET 

SOURCE  FILE  TYPE:  PC 

HOST  2 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


ONE  SELECTED  CALL  GENMREL  TO  START  GENERATING 
CREATE  MAP  FOR  SET  COMMANDS. 

SYNOPSIS 

C  —  ALLCSET () 

COBOL  —  CALL  "ALLCSET” 

FORTRAN  —  CALL  ALLCSET  () 

INPUT: 

OUTPUT: 

DESCRIPTION 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

INCLUDE  FILES: 


EOD 

ROUTINES  CALLED: 


STRNCPY 

ADDPARM 

SQLSCA 
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SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLAD2 

SQLFCH 

GENHREL 

SQLTOC 

SQLSQS 

SQLOSQ 

SQLEXE 
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NAME:  ALLENT 

PURPOSE:  SELECT  ALL  THE  ATTRIBUTES  IN  FROM-MODEL  AND  GENERATE 

LANGUAGE:  C 

SOURCE  FILE:  ALLENT 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


NDDL  COMMANDS  TO  CREATE  THE  ENTITY,  THEIR 

KEYWORDS 

ALIAS  AND  DESCRIPTIONS  IN  THE  TO-MODEL 

SYNOPSIS 

C  —  ALLENT ( &MODEL_NO ,  &MODEL_NAME , 

&KEYWORD_FLAG, 

&ALI AS_FLAG ,  &DESC_FLAG)  ; 

COBOL  —  CALL  "ALLENT"  USING 

MODEL-NO, 

MODEL-NAME, 

KEYWORD- FLAG, 

ALIAS -FLAG, 

DESC-FLAG. 

FORTRAN  —  CALL  ALLENT ( MODE LNO,  MODELNAME, 
KEYWORDFLAG,  ALIAS FLAG, 

DESCFLAG) 

INPUT: 

INT  *MODEL_NO  ; 

CHAR  *MODEL_NAME  ; 

INT  *KEYWORD_FLAG  ; 

INT  *ALIAS_FLAG  ; 

INT  *DESC_FLAG  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  RETRIEVE  RECORDS  FROM 
ENTITY_CLASS ,  ENTITY_NAME  THEN  USE  THE  INFORMATIONS  TO 
GENERATE 

NDDL  COMMAND  STATEMENT. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


3-1147 


PS  620341100 
30  September  1990 


ARGUMENTS: 


MODEL  NO 

INT  * 

MODEL  NAME 

CHAR  * 

KEYWORD  FLAG 

CHAR  * 

ALIAS  FLAG 

CHAR  * 

DESC  FLAG 

CHAR  * 

INCLUDE  FILES: 
EOD 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLAD2 

SQLFCH 

STRNCMP 

BLECLST 

GENENT 

STRNCPY 

GENDESC 

GENALI 

SQLTOC 

SQLOSQ 

SQLAB2 

SQLEXE 
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NAME:  ALLMCAT 

PURPOSE:  SELECT  ALL  RELATIONS  IN  THE  CDM  ANF  OR  EACH 

LANGUAGE:  C 

SOURCE  FILE:  ALLMCAT 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


ONE  SELECTED  CALL  GENMREL  TO  START  GENERATING 
CREATE  MAP  FOR  RELATION  COMMANDS. 

SYNOPSIS 

C  —  ALLMCAT ( ) 

COBOL  —  CALL  "ALLMCAT" 

FORTRAN  —  CALL  ALLMCAT  () 

INPUT: 

OUTPUT: 

DESCRIPTION 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

INCLUDE  FILES: 


EOD 

ROUTINES  CALLED: 


STRNCPY 

ADDPARM 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLAD2 

SQLFCH 

GENAREL 

SQLTOC 

SQLSQS 

SQLOSQ 

SQLEXE 
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NAME:  ALLMREL 

PURPOSE:  SELECT  ALL  RELATIONS  IN  THE  CDM  ANF  OR  EACH 

LANGUAGE:  C 

SOURCE  FILE:  ALLMREL 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ONE  SELECTED  CALL  GENMREL  TO  START  GENERATING 
CREATE  MAP  FOR  RELATION  COMMANDS. 


SYNOPSIS 

C 

COBOL 

FORTRAN 


ALLMREL () 

CALL  "ALLMREL" 
CALL  ALLMREL  ( ) 


INPUT: 

OUTPUT : 

DESCRIPTION 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


INCLUDE  FILES: 
EOD 


ROUTINES  CALLED: 


STRNCPY 

ADDPARM 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLAD2 

SQLFCH 

SELECNM 

GENAREL 

SQLTOC 

SQLSQS 

SQLOSQ 

SQLEXE 
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NAME:  ALLRSET 

PURPOSE:  SELECT  ALL  RELATIONS  IN  THE  CDM  AND  FOR  EACH 

LANGUAGE:  C 

SOURCE  FILE:  ALLRSET 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


ONE  SELECTED  CALL  GENMREL  TO  START  GENERATING 
CREATE  MAP  FOR  SET  COMMANDS. 


SYNOPSIS 

C 

COBOL 

FORTRAN 


ALLRSET () 

CALL  "ALLRSET" 
CALL  ALLRSET  ( ) 


INPUT: 

OUTPUT: 

DESCRIPTION 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


INCLUDE  FILES: 
EOD 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLAD2 

SQLFCH 

GENMREL 

STRNCPY 

ADDPARM 

SQLTOC 

SQLSQS 

SQLOSQ 

SQLEXE 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  ALTATT 

PURPOSE:  THE  ALTER  ATTRIBUTE  COMMAND  PROCESSOR  ALTERS 

LANGUAGE:  C 

SOURCE  FILE:  ALTATT 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


USER  SPECIFIED  ATTRIBUTES  IN  THE  CDM. 

SYNOPSIS 

C  —  ALTATT (&MODEL_NO,  &STATUS) 

COBOL  —  CALL  " ALTATT"  USING 

MODEL-NO 
STATUS . 

FORTRAN  —  CALL  ALTATT  (MODELNO,  STATUS) 

INPUT: 

INT  *MODEL_NO 
OUTPUT: 

INT  *STATUS 
DESCRIPTION 

ALTATT  EXTRACTS  THE  ATTRIBUTE  CLASS  TO  BE  ALTERED  FROM 
THE  LIST, 

VERIFIES  THAT  IT  EXISTS,  AND  MAKES  CALLS  TO  CHANGE  THE 
DOMAIN, 

DROP  KEYWORD,  ADD  KEYWORD  AND  ALTER  OWNERSHIP  OF 
ATTRIBUTE. 


ARGUMENTS : 


MODEL_NO  INT  * 

STATUS  INT  * 

INCLUDE  FILES: 


CSTDTYP 

LISTID 

ROUTINES  CALLED: 


STRNCPY 

CPFONE 

VERATT 

CHGDOM 

SPRINTF 

UERROR 

AOAEVAL 

ADDKW 

DRPKW 
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NAME:  BLECLST 

PURPOSE:  THIS  ROUTINE  CREATES  A  ROW  IN  THE  UNBOUNDED  EC_LIST 

LANGUAGE:  C 

SOURCE  FILE:  BLECLST 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


DATA  STRUCTURE. 


SYNOPSIS 

C  —  BLECLST ( &EC_NO,  &EC_NAME,  &STATUS ) 

COBOL  —  CALL  "BLECLST"  USING 

EC-NO, 

EC-NAME, 

STATUS . 

FORTRAN  —  CALL  BLECLST ( ECNO ,  ECNAME,  STATUS) 
INPUT: 

INT  *EC_NO  ; 

CHAR  *EC_NAME  ; 

INT  ‘STATUS  ; 

OUTPUT: 

DESCRPIPTION : 


ARGUMENTS : 

INT  * 
CHAR  * 

INCLUDE  FILES: 

KEYLIST 

ROUTINES  CALLED: 

ADDECNM 


EC_NO 
EC  NAME 
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NAME l  ADDECNM 

PURPOSE:  ADD  THE  EC_NAME  AND  EC_N0  INTO  KEYLIST 

LANGUAGE:  C 

SOURCE  FILE:  BLECLST 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  ADDECNM (EC_NO,EC_NAME) 

COBOL  —  CALL  "ADDECNM”  USING 

EC_NO, 

EC_NAME . 

FORTRAN  —  CALL  ADDECNM  ( EC_NO , EC_NAME ) 

INPUT: 

INT  *EC_NO  ; 

CHAR  *EC_NAME  ; 

OUTPUT: 

DESCRIPTION 

THIS  ROUTINE  ADDS  THE  EC_NO  AND  EC_NAME  TO  THE 
KEYLIST  DATA  STRUCTURE 


ARGUMENTS : 


EC_NO  INT  * 

EC_NAME  CHAR  * 

INCLUDE  FILES: 


KEYLIST 


ROUTINES  CALLED: 


MALLOC 

STRNCPY 
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NAME:  BLOOPCK 

PURPOSE:  CHECK  FOR  LOOPS  FROM  THE  ENTITY  GIVEN  UP  THE 
HIERARCHY 
LANGUAGE:  C 
SOURCE  FILE:  BLOOPCK 
SOURCE  FILE  TYPE:  PC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  BLOOPCK  (T^NO) 

COBOL  —  CALL  "BLOOPCK"  USING 

EC-NO. 

FORTRAN  —  CALL  BLOOPCK  (ECNO) 

INPUT: 

INT  EC_NO  THE  ENTITY  CLASS  FOR  WHICH  AN  UPWARD 
HIERARCHY  WILL 

BE  SEARCHED 

OUTPUT: 

WARNING  MESSAGES  WILL  BE  ISSUED 

STATUS  SET  TO  -1  IF  A  LOOP  IS  FOUND 

LEFT  ALONE  OTHERWISE 

DESCRIPTION 

USE  A  SQL  TREE  SEARCH  FOR  ALL  RELATIONS  ABOVE  THIS 
ENTITY,  IF  A  LOOP 

IN  THE  USER  DATA  IS  ENCOUNTERED,  REPORT  AN  ERROR  TO  THE 

USER. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
X  NTERF ACE 

3/14/89:  REWRITTEN  TO  TAKE  OUT  'CONNECT  BY  PRIOR'  IN  ORDER  TO 

MAKE  IT  ALL  STANDARD  SQL. 

8/30/89:  MODIFIED  TO  HANDLE  CATEGORY  RELATIONS  AS  WELL  AS 

LINK  RELATIONS 

ARGUMENTS : 


EC_NO 

STATUS 

INCLUDE  FILES: 


STDIO 

EOD 

LLIST 

ROUTINES  CALLED: 


SQLAB2 

SQLAD2 

SQLBS2 

SQLCLS 

FRELST1 


INT  * 
INT  * 
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STRCPY 

ADDPARM 

ERRRPT 

SQLEXE 

SQLFCH 

LOOPDEP 

ADDNODE 

STRTLST 

SQLOSQ 

SQLSCA 

SQLSCC 

SQLSCH 

SQLTOC 


DOCGROUP  PS41100  Module  Documentation 
NAME:  BRANCHR 

PURPOSE:  PERFORMS  MULTI-WAY  CALL  TO  THE 

LANGUAGE:  C 

SOURCE  FILE:  BRANCHR 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


INDIVIDUAL  COMMAND  PROCESSOR. 
SYNOPSIS 


C 

COBOL 

FORTRAN  — 
INPUT: 
COMMAND  NO 


BRANCHR ( COMMAND_NO ) ; 

CALL  "BRANCHR"  USING 

COMMANDNO. 

CALL  BRANCHR (CMDNO) 

AN  INTEGER  VARIABLE,  A  VALUE  INDICATING 
WHICH  COMMAND  IS  TO  BE  EXECUTED, 

FOR  VALUE  ASSIGNMENTS  SEE  THE  FILE 


"CMDID.H" 


OUTPUT: 

DESCRIPTION 

SIMPLY  PERFORM  A  SWITCH  ON  COMMAND_NO ,  AT  EAC 
CASE  CALL  THE  APPROPRIATE  COMMAND  PROCESSOR. 
PLEASE  KEEP  THE  CASES  IN  ALPHABETICAL  ORDER! 
MODIFICATION  HISTORY 

4/20/89 — BERNIER — ADD  CREATE  CATEGORY,  ALTER  CATEGORY 

DROP  CATEGORY  COMMANDS 


AND 


ARGUMENTS : 

COMMAND_NO  INT 

INCLUDE  FILES: 

CMDID 

NDDLEX 
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ROUTINES  CALLED: 


SPRINTF 

ERRPRO 

UERROR 

SETOUT 

HALT 

ALTALI 

ALTATT 

ALTCAT 

ALTDB 

ALTDBMS 

PRINTF 

ALTDOM 

ALTENT 

ALTFLDS 

ALTHST 

ALTMAP 

ALTMOD 

ALTSMOD 

ALTPART 

ALTPSB 

ALTREC 

ALTREL 

ALTUNIN 

CHKMOD 

CMBENT 

COMMIT 

CMPMOD 

COPATT 

CPYDB 

CPYDBMS 

CPYDSTP 

CPYDES 

CPYDOM 

COPENT 

CPYHST 

CPYMAP 

CPYMOD 

CPYMODU 

CPYREC 

CPYSET 

CPYVIEW 

CRTALI 

CRTATT 

CRTCAT 

CRTDSCT 

CRT DOM 

CRTENT 

CRTMAP 

CRTMOD 

CRTPART 

CRTRELA 

CRTUNIN 

CRTVIEW 

DEFALG 

DEFDB 

DEFDBMS 
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DEFHST 

DEFSMOD 

DEFPSB 

DEFREC 

DEFSET 

DESCRB 

DRPALG 

DRPALI 

DRPATT 

DRPCAT 

DRPDB 

DRPDBMS 

DRPDSCT 

DRPDOM 

DRPENT 

DRPFLD 

DRPHST 

DRPKWC 

DRPLUW 

DRPMAP 

DRPMOD 

DRPSMOD 

DRPPART 

DRPPSB 

DRPREC 

DRPREL 

DRPSET 

DRPUNIN 

DRPVIEW 

MRGMOD 

RENMOBJ 

ROLBACK 

SETCOMM 
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NAME:  CDMACRX 

PURPOSE: 

LANGUAGE:  C 

SOURCE  FILE:  CDMACRX 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 

SUBDIRECTORY:  NDDL 

ARGUMENTS : 

FILE  NO 

INT  * 

LIB  NAME 

CHAR  * 

MACRO  NAME 

CHAR  * 

SUB_LIST 

CHAR  * 

ROUTINES  CALLED: 

CDMACR 
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NAME:  CHGDOM 

PURPOSE:  CHANGE  THE  DOMAIN  FOR  AN  ALTERED  ATTRIBUTE 

LANGUAGE:  C 

SOURCE  FILE:  CHGDOM 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


CLASS. 

SYNOPSIS 

C  —  CHGDOM (&AC_NO,  & STATUS) 

COBOL  —  CALL  " CHGDOM”  USING 

AC-NO 
STATUS . 

FORTRAN  —  CALL  CHGDOM  (ACNO,  STATUS) 

INPUT: 

INT  *AC_NO 
OUTPUT: 

INT  *STATUS 
DESCRIPTION 

CHGDOM  ALLOWS  AN  ATTRIBUTE  CLASS  TO  CHANGE  FROM  ONE 
DOMAIN  TO  ANOTHER.  THE  VALUE  OF  THE  FUNCTION  IS  ZERO 
IF  SUCCESSFUL  AND  -1  OTHERWISE. 

MODIFIED:  SANDY  SINGH,  SEP  21,  1988 

TO  CREATE  A  DOMAIN  WITH  AN  UNDEFINED  DOMAIN 
MODIFIED:  LAURA  SPARKS,  6-22-89 

TO  MAKE  SURE  NEW  DOMAIN  DOES  NOT  INVALIDATE  A 

CATEGORY 

THAT  THE  ATTRIBUTE  IS  THE  DISCRIMINATOR  FOR. 


ARGUMENTS : 


INT  * 
INT  * 

INCLUDE  FILES: 


CSTDTYP 

LISTID 

UNIQENO 

ROUTINES  CALLED: 


CPFONE 

STRNCMP 

STRNCPY 

VERDOM 

SPRINTF 

UERROR 

CHKCDOM 

UPDAC 


AC_NO 

STATUS 
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NAME:  CHGLOBL 

PURPOSE:  CHANGES  THE  GLOBAL  DB  PARAMETERS 

LANGUAGE:  C 

SOURCE  FILE:  CHGLOBL 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  CHGLOBL (DB_ID,  DB_NAME ,  HOST_NAME ,  DBMS_NAME ) 

COBOL  —  CALL  "CHGLOBL”  USING 

DB_ID, 

DB_NAME , 
HOST_NAME , 
DBMS_NAME . 

FORTRAN  —  CALL  CHGLOBL 

( DB_ID, DB_NAME , HOST_NAME , DBMS_NAME) 

INPUT: 

OUTPUT: 

DESCRIPTION 

THIS  ROUTINE  WILL  CHANGE  THE  FOLLOWING  4  GLOBAL  VARIABLE 

1.  CUR_DBID  (CURRENT  DATABASE  ID) 

2.  CURDBNAME  (CURRENT  DATABASE  NAME) 

3.  CUR_HOST  (CURRENT  HOST  NAME  ) 

4.  CUR_DBMS  (CURRENT  DATABASE  MANAGEMENT) 


ARGUMENTS : 


INT  * 
CHAR  * 
CHAR  * 
CHAR  * 


DB_ID 
DB_NAME 
HOST_NAME 
DBMS  NAME 
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NAME !  CHKLOOP 

PURPOSE:  CHECK  LOOP  DEPENDENCY  AND  FOR  TOPS  AND  BOTTOMS 

LANGUAGE:  C 

SOURCE  FILE:  CHKLOOP 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  CHKLOOP (MODEL_NAME,&STATUS) 

COBOL  —  CALL  " CHKLOOP"  USING 

MODEL-NAME 
STATUS . 

FORTRAN  —  CALL  CHKLOOP (MODELNAME, STATUS) . 

INPUT: 

CHAR  *MODEL_NAME  ; 

OUTPUT: 

INT  *STATUS ; 

DESCRIPTION 

THIS  ROUTINE  CHECKS  FOR  LOOP  DEPENDANCY . IF  A  LOOP 
EXISTS  THE  MODEL  CANNOT  BE  "CHECKED”. 

THE  CHECK  CONSISTS  OF  LOOKING  FOR  ALL  TOP  NODES  IN  THE 
MODEL, THOSE  ENTITIES  WHICH  ARE  DEPENDENT  ON  NO  OTHERS,  EVERY 
MODEL  SHOULD  HAVE  AT  LEAST  ONE.  THEN  FOR  EACH  TOP  CALL  TLOOPCK 
TO  CHECK  FOR  ANY  LOOPS  IN  THE  HIERARCHY  STARTING  AT  THAT 

TOP. 

NEXT  LOOK  FOR  ALL  BOTTOM  ENTITIES,  EACH  MODEL  SHOULD  HAVE 
AT  LEAST  ONE  BOTTOM.  FOR  EACH  BOTTOM  CALL  BLOOPCK 
TO  CHECK  FOR  ANY  LOOPS  IN  THE  HIERARCHY  ENDING  AT  THAT 
BOTTOM. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

MODIFIED  8/30/89  TO  HANDLE  CATEGORY  RELATIONS  AS  WELL  AS  LINK 
RELATIONS 

ARGUMENTS : 


MODEL_NAME  CHAR  * 

STATUS  INT  * 

INCLUDE  FILES: 


CSTDTYP 

EOD 

ROUTINES  CALLED: 


STRNCPY 

SPRINTF 

ADDPARM 

ERRRPT 

SQLSCA 

SQLBS2 
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SQLSCH 

SQLSCC 

SQLCLS 

SQLAD2 

SQLFCH 

BLOOPCK 

TLOOPCK 

SQLTOC 

SQLSQS 

SQLOSQ 

SQLAB2 

SQLEXE 


DOCGROUP  PS41100  Module  Documentation 
NAME:  CMPTAGS 

PURPOSE:  RETRIEVE  ALL  TAGS  USED  BY  AN  ALGORITHM 

LANGUAGE:  C 

SOURCE  FILE:  CMPTAGS 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


THAT  EXIST  IN  BOTH  COMPLEX_MAPPING_PARM 
AND  AUC  IS  MAPPING. 

SAVE  ALL  THESE  TAGS  IN  A  TABLE  (TAGTBL) 

SYNOPSIS 

C 

CMPTAGS ( TT-TABLE , PREF , MOD_ID , MOD_INST , CODE , STATUS ) 

COBOL  —  CALL  "CMPTAGS”  USING 

TT-TABLE 

PREF-NO 

MOD_ID 

MOD_INST 

ALG-USE-CODE 

STATUS . 

FORTRAN  —  CALL 

CMPTAGS (TT-TABLE , PREF , MOD- ID, MOD- INST , CODE , STATUS ) 

INPUT: 

INT  *TT-TABLE  ; 

INT  *PREF_NO  ; 

CHAR  *MOD_ID  ; 

INT  *  MOD_INST  ; 

CHAR  *ALG_USE_CODE  ; 

INT  *STATUS  ; 

DESCRPIPTION : 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 

INTERFACE 

ARGUMENTS : 


TT_TABLE 
PREF_NO 
MOD  ID 


INT  * 
INT  * 
CHAR  * 
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MOD_INST 

ALG_USE_CODE 

STATUS 


INT  * 
CHAR  * 
INT  * 


INCLUDE  FILES: 


EOD 


ROUTINES  CALLED: 


STRNCPY 

STRCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLAD2 

SQLFCH 

SAVTAGS 

SQLTOC 

SQLSQS 

DOCGROUP  PS41100  Module  Documentation 
NAME:  COMMIT 

PURPOSE:  ISSUE  THE  NDML  COMMIT  AND  THE  ORACLE  COMMIT 

LANGUAGE:  C 

SOURCE  FILE:  COMMIT 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  COMMIT (& STATUS) 

COBOL  —  CALL  "COMMIT"  USING  STATUS. 

FORTRAN  —  CALL  COMMIT  (STATUS) 

INPUT:  NONE 

OUTPUT:  INT  *STATUS  ; 

DESCRPIPTION : 

MODIFIED:  1  NOV, 1986  REMOVE  CALLS  TO  REUSABLE_NUMBER 
MODIFIED:  23  SEP, 1988  CHANGE  COCOM  TO  OCOM 

ARGUMENTS : 


STATUS  INT  * 

ROUTINES  CALLED: 


NCPMMIT 

SPRINTF 

UERROR 

ERRPRO 
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NAME:  COPTOPE 

PURPOSE:  SELECT  ALL  THE  LEVEL  1  TOP  NODE  INDEPENDENT  ENTITY 

LANGUAGE:  C 

SOURCE  FILE:  COPTOPE 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


CLASSES  IN  THE  FROM_MODEL  AND  GENERATE  ALTER  ENTITY 

STATEMENTS  TO  ADD  THEIR  KEY  CLASSES. 

SYNOPSIS 

C  -  COPTOPE ( &MODEL_NO , &RC , &DEP_FLAG , &DEP_EC_LIST)  ; 

COBOL  -  CALL  "COPTOPE”  USING 

MODEL-NO , 

DEP-FLAG, 

DEP-EC-LIST 

RC. 

FORTRAN  -  CALL  COPTOPE (MODELNO,  DEPFLAG,  DEPECLIST, RC) 

INPUT:  INT  *MODEL_NO  ; 

INT  *DEP_FLAG; 

INT  *DEP_EC_LIST; 

INT  * STATUS  ; 

DESCRPIPTION :  REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND 
HLI  INTERFACE 

ARGUMENTS : 


MODEL_NO 

DEP_FLAG 

DEP_EC_LIST 

STATUS 

INCLUDE  FILES: 


EOD 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLAD2 

SQLFCH 

FNDEC 

GETECNM 

GENALTE 

SQLTOC 

SQLSQS 

SQLOSQ 

SQLAB2 

SQLEXE 


INT  * 
CHAR  * 
INT  * 
INT  * 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  XNITCMD 
PURPOSE: 

LANGUAGE:  C 
SOURCE  FILE:  CPF 
SOURCE  FILE  TYPE:  C 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  SHARE 


INCLUDE  FILES: 


LISTSEX 

NDDLEX 


DOCGROUP  PS41100  Module  Documentation 


NAME:  ADD_TO_LST 
PURPOSE: 

LANGUAGE:  C 
SOURCE  FILE:  CPF 
SOURCE  FILE  TYPE:  C 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  SHARE 


ARGUMENTS : 


INT 

CHAR  * 


LST 

STRING 


INCLUDE  FILES: 


LISTSEX 

NDDLEX 


ROUTINES  CALLED: 


ERRPRO 

SPRINTF 

UERROR 

PRINTF 

LISTNAME 

STRLEN 

STRCAT 
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DOCGROUP  PS41100  Module 

Documentation 

NAME:  ADD  CORR 

PURPOSE: 

LANGUAGE:  C 

SOURCE  FILE:  CPF 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  SHARE 

ARGUMENTS : 

LST1 

INT 

LST2 

INT 

STRING 

CHAR  * 

INCLUDE  FILES: 

LISTSEX 

NDDLEX 

ROUTINES  CALLED: 

STRLEN 

STRCAT 

PRINTF 

LISTNAME 

DOCGROUP  PS41100  Module 

Documentation 

NAME:  ADDNCORR 

PURPOSE: 

LANGUAGE:  C 

SOURCE  FILE:  CPF 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  SHARE 

ARGUMENTS: 

LST1 

INT 

LST2 

INT 

STRING 

CHAR  * 

INCLUDE  FILES: 

LISTSEX 

NDDLEX 

ROUTINES  CALLED: 

STRLEN 

STRCAT 

PRINTF 

LISTNAME 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  ADD_TO_CNT 
PURPOSE : 

LANGUAGE:  C 
SOURCE  FILE:  CPF 
SOURCE  FILE  TYPE:  C 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  SHARE 

ARGUMENTS : 


INT 
INT 

INCLUDE  FILES: 


LIST1 

LIST2 


LISTSEX 

NDDLEX 

ROUTINES  CALLED: 


ERRPRO 

PRINTF 

LISTNAME 


DOCGROUP  PS41100  Module  Documentation 


NAME:  CPFONE 

PURPOSE: 

LANGUAGE:  C 

SOURCE  FILE:  CPF 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 

SUBDIRECTORY:  SHARE 

ARGUMENTS : 

LST 

INT  * 

TYPE 

CHAR  * 

STRING 

CHAR  * 

COUNT 

INCLUDE  FILES: 

LISTSEX 

NDDLEX 

ROUTINES  CALLED: 

PRINTF 

STRNCPY 

INT  * 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  CPFNXT 

PURPOSE: 

LANGUAGE:  C 

SOURCE  FILE:  CPF 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 

SUBDIRECTORY:  SHARE 

ARGUMENTS : 

LST 

INT  * 

STRING 

CHAR  * 

RC 

INCLUDE  FILES: 

LISTSEX 

NDDLEX 

ROUTINES  CALLED: 

STRNCPY 

INT  * 

DOCGROUP  PS41100  Module  Documentation 


NAME:  CPFCOR 

PURPOSE: 

LANGUAGE:  C 

SOURCE  FILE:  CPF 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 

SUBDIRECTORY:  SHARE 

ARGUMENTS : 

LST1 

INT  * 

LST2 

INT  * 

STRING 

CHAR  * 

RC 

INT  * 

INCLUDE  FILES: 

LISTSEX 

NDDLEX 

ROUTINES  CALLED: 

STRNCPY 
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DOCGROUP  PS41100  Module  Documentation 

NAME:  CPFVAL 
PURPOSE: 

LANGUAGE:  C 
SOURCE  FILE:  CPF 
SOURCE  FILE  TYPE:  C 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  SHARE 


ARGUMENTS : 


INT  * 
INT  * 
INT  * 


LIST1 

LIST2 

VALUE 


INCLUDE  FILES: 


LISTSEX 

NDDLEX 


DOCGROUP  PS41100  Module  Documentation 
NAME:  CPYDES 

PURPOSE:  COMMAND  PROCESSOR  FOR  COPY  DESCRIPTION 

LANGUAGE:  C 

SOURCE  FILE:  CPYDES 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  CPYDES (&CURRENT_MODEL_NO, *CUR_MOD_NAME) 

COBOL  —  CALL  "CPYDES"  USING 

CURRENT_MODEL_NO , 
CUR_MOD_NAME . 

FORTRAN  —  CALL  CPYDES ( CURRENT_MODEL_NO , CUR_MOD_NAME ) 

INPUT: 

INT  *CURRENT_MODEL_NO  ; 

CHAR  *CUR_MOD_NAME[]  ; 

OUTPUT: 

DESCRPIPTION • 

THIS  IS  A  PARTIAL  DESCRIPTION  COPY.  ONLY  THE  DESCRIPTION 
LINES  OF  THE 

IDENTIFIED  DESCRIPTION  TYPE  OF  THE  GIVEN  OBJECT  WILL  BE 
COPIED,  RATHER 

THAN  ALL  DESCRIPITON  TYPES. 

MODIFIED  FEBRUARY  17,  1987  BY  R.  STEWART 

USER  CAN  NOW  SPECIFY  ANY  NUMBER  OF  SPECIFIC  DESCRIPTION 
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TYPES  OR  ALL 

DESCRIPITON  TYPES,  AND  CAN  COPY  THEM  DIRECTLY  INTO  THE 
CDM  OR  ON  FILE. 
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ARGUMENTS : 


CURRENT_MODEL_NO 

CUR_MOD_NAME 

INCLUDE  FILES: 


LISTID 

ROUTINES  CALLED: 


STRNCPY 

CPFONE 

STRNCMP 

CPDOFSP 

CPDOFAL 

CPDDRSP 

CPDDRAL 

VERMOD 

SPRINTF 

UERROR 

DOCGROUP  PS41100  Module  Documentation 
NAME:  CRCLASA 

PURPOSE:  FOR  MODEL  NAME1  SELECT  ALL  THE  CATEGORY  RELATIONS 

LANGUAGE:  C 

SOURCE  FILE:  CRCLASA 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


INT  * 
CHAR  [] 


BY  NAME  AND  LOOK  FOR  A  MATCHING  CATEGORY  RELATION  NAME  IN 
MODELJNAME2 
SYNOPSIS 

C  -  CRCLASA (&M0DEL_NAME1,  &MODEL_NAME2 ,  &STATUS)  ; 
COBOL  -  CALL  "CRCLASA"  USING 

MODEL-NAME1 , 

MODEL-NAME2 , 

STATUS . 

FORTRAN-  CALL  CRCLASA (MODELNAME1 ,  MODELNAME2 , 

STATUS) 

INPUT: 

CHAR  *MODEL_NAME 1  ; 

CHAR  *MODEL_NAME2  ; 

INT  *STATUS  ; 

DESCRIPTION: 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL*FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


CHAR  * 
CHAR  * 
INT  * 


MODEL_NAME 1 
MODEL_NAME2 
STATUS 
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INCLUDE  FILES: 


EOD 

ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLTFL 

SQLOPN 

SQLAD2 

SQLFCH 

CRPARM 

CMPCRDA 

STRNCMP 

CRPARM2 

CMCOUNT 

CRPARM 3 

SQLTOC 

SQLSQS 

SQLOSQ 

SQLAB2 

SQLEXE 


DOCGROUP  PS41100  Module  Documentation 
NAME:  CRCLASS 

PURPOSE:  FOR  MODEL  NAME1  SELECT  THE  PRIMARY  CATEGORY  RELATION 

LANGUAGE:  C 

SOURCE  FILE:  CRCLASS 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


BY  NAME  AND  LOOK  FOR  A  MATCHING  PRIMARY  CATEGORY  RELATION 

NAME  IN  MODE L_NAME 2 

SYNOPSIS 

C  —  CRCLASS (&M0DEL_NAME1,  &MODEL_NAME2 , & STATUS)  ; 

COBOL  —  CALL  "CRCLASS"  USING 

MO DEL-NAME 1, 

MODEL-NAME  2 , 

STATUS . 

FORTRAN—  CALL  CRCLASS ( MODE LNAME1,  MODELNAME2 , STATUS ) 
INPUT: 

CHAR  *MODEL_NAME 1  ; 

CHAR  *MODEL_NAME2  ; 

INT  *STATUS  ; 
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DESCRIPTION: 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


MODEL_NAME 1  CHAR  * 
MODEL_NAME2  CHAR  * 
STATUS  INT  * 

INCLUDE  FILES: 


EOD 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLTFL 

SQLOPN 

SQLAD2 

SQLFCH 

CRPARM 

CMPCRDA 

STRNCMP 

CRPARM2 

CMCOUNT 

CRPARM3 

SQLTOC 

SQLSQS 

SQLOSQ 

SQLAB2 

SQLEXE 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  DELAC 

PURPOSE:  DELETE  A  RECORD  FROM  ATTRIBUTE  CLASS 

LANGUAGE:  C 

SOURCE  FILE:  DELAC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  AC_NO  =  "INPUT  PARAMETER  1"  ; 

SYNOPSIS 

C  —  DELAC ( &AC_NO , &STATUS ) 

COBOL  —  CALL  "DELAC"  USING 

AC-NO, 

STATUS . 

FORTRAN  ~  CALL  DELAC (ACNO, STATUS) 

INPUT: 

INT  *AC_NO  ; 

OUTPUT: 

INT  * STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
ATTRI BUTE_CLASS 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


AC_NO 

STATUS 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 


INT  * 
INT  * 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DELACAL 

PURPOSE:  DELETE  RECORD  CLASS  FROM  ATTRI BUTE_NAME 

LANGUAGE:  C 

SOURCE  FILE:  DELACAL 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


WHERE  AC_NAME  =:  "INPUT  PARAMETER  1  "  AND 
AC_NO  :=  "INPUT  PARAMETER  2"  ; 

SYNOPSIS 

C  —  DELACAL (AC_NAME,  &AC  NO,  &STATUS) 

COBOL  —  CALL  "DELACAL"  USING 

AC-NAME, 

AC-NO, 

STATUS . 

FORTRAN  —  CALL  DELACAL(ACNAME, ACNO, STATUS) 

INPUT: 

CHAR  *AC_NAME  ; 

INT  *AC_NO  ; 

OUTPUT: 

INT  ‘STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
ATTRI BUTE_NAME 

WHERE  AC_NAME  EQUALS  TO  "INPUT  PARAMETER  1"  AND  AC_NO 
EQUALS 

TO  "INPUT  PARAMETER  2". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


ACJNAME  CHAR  * 

AC_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  DELACKW 

PURPOSE:  DELETE  A  RECORD  FROM  AC_KE¥WORD 

LANGUAGE:  C 

SOURCE  FILE:  DELACKW 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  AC_NO  =  "INPUT  PARAMETER  1"  ; 

SYNOPSIS 

C  —  DELACKW (&AC_NO,& STATUS) 

COBOL  —  CALL  "DELACKW"  USING 

AC -NO, 

STATUS . 

FORTRAN  —  CALL  DELACKW (ACNO , STATUS) 

INPUT: 

INT  *AC_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
AC_KEYWORD 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


AC_NO 

STATUS 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 


INT  * 
INT  * 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  DELACNM 

PURPOSE:  DELETE  RECORD  CLASS  FROM  ATTRI BUTE_N AME  WHERE  AC_NO 

LANGUAGE:  C 

SOURCE  FILE:  DELACNM 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


:=  "INPUT  PARAMETER"  ; 

SYNOPSIS 

C  —  DELACNM (  &AC_NO,  & STATUS) 

COBOL  —  CALL  "DELACNM"  USING 

AC-NO, 

STATUS . 

FORTRAN  —  CALL  DELACNM (ACNO, STATUS) 

INPUT: 

I NT  *AC_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
ATTRI BUTE_NAME 

WHERE  AC_NO  EQUAL  TO  THE  INPUT  PARAMETER (AC_NO) . 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 

AC_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  DELASM1 

PURPOSE:  DELETE  A  RECORD  FROM  AUC  ST  MAPPING  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELASM1 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C 


DELASM1 ( &DB_ID, &STATUS) 


COBOL  —  CALL  " DELASM1"  USING 

DB-ID, 

STATUS . 

FORTRAN  —  CALL  DELASM1 (DBID, STATUS) 

INPUT: 

INT  *DB_ID  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
AUC_ST_MAPPING.  IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE 
STATUS 

AND  RETURN  VALUE  BOTH  WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  bLI 
INTERFACE 


ARGUMENTS : 


INT  * 
INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 


DB_ID 

STATUS 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  DELASM2 

PURPOSE:  DELETE  A  RECORD  FROM  AUC  ST_MAPPING  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELASM2 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  DELASM2 (&DB_ID,  &SET_ID,  & STATUS) 

COBOL  —  CALL  "DELASM2"  USING 

DB-ID, 

SET-ID, 

STATUS . 

FORTRAN  —  CALL  DELASM2 (DBID,  SETID,  STATUS) 

INPUT: 

INT  *DB_ID  ; 

CHAR  *SET_ID  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
AUC_ST_MAPPING 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


DB_ID  INT  * 

SET_ID  CHAR  * 

STATUS  INT  * 

ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DELAUC 

PURPOSE:  DELETE  INHERITED_ATT_USE,  KEY_CLASS_MEMBER , 

LANGUAGE:  C 

SOURCE  FILE:  DELAUC 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


ATTRI BUTE_USE_CL  WHERE  THE  TAG  NUMBER 

EQUALS 

THE  INPUT  PARAMETER.  ALSO  DELETE 

AUC_COPY  XREF 

WHERE  THE  INPUT  PARAMETER  EQUALS  TO_AUC_NO 
OR 

FROM_AUC_NO. 

SYNOPSIS 

C  —  DELAUC (&TAG_NO,  & STATUS) 

COBOL  —  CALL  "DELAUC"  USING 

TAG-NO 
STATUS . 

FORTRAN  ~  CALL  DELAUC  (TAGNO,  STATUS) 

INPUT: 

INT  *TAG_NO 
OUTPUT: 

INT  ‘STATUS 
DESCRIPTION 

THIS  ROUTINE  CALLS  ROUTINES  WHICH  DELETE  THE  INHERITED 
ATTRIBUTE 

USE,  KEY  CLASS  MEMBER,  ATTRIBUTE  USE  CLASS  AND  THE 
ATTRIBUTE  USE 

CLASS  COPY  CROSS  REFERENCE  ENTITY  CLASSES  WHERE  THE  TAG 

NUMBERS 

MATCH.  THIS  ROUTINE  WILL  ALSO  DELETE  TEXTUAL 
DESCRIPTION  AND 

ADD  THE  REUSABLE  TAG-NO  BACK  TO  THE  CDM  FOR  THE  TAG-NO. 
ARGUMENTS : 


TAG_NO  INT  * 

STATUS  INT  * 

INCLUDE  FILES: 


CSTDTYP 

UNIQENO 

ROUTINES  CALLED: 


DELIAUC 

SPRINTF 

UERROR 

ADDRNUM 

DELTEXT 

DELAUCL 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  DELAUCK 

PURPOSE:  DELETE  ATTRIBUTE  USE  CLASS  KEY  MEMBER  GIVEN 

LANGUAGE:  C 

SOURCE  FILE:  DELAUCK 

SOURCE  FILE  TYPE:  C 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


THE  TAG  NUMBER 

SYNOPSIS 

C  —  DELAUCK (4TAG_NO,  4 STATUS) 

COBOL  —  CALL  "DELAUCK”  USING 

TAG-NO 
STATUS . 

FORTRAN  —  CALL  DELAUCK (TAGNO, STATUS) 

INPUT: 

INT  *TAG_NO 
OUTPUT: 

INT  * STATUS 
DESCRIPTION 

THIS  ROUTINE  CALLS  DELKCMT  TO  DELETE  KEY  CLASS  MEMBERS 

GIVEN 

A  TAG  NUMBER  FOLLOWED  BY  DELMIGK  WHICH  DELETES  ALL 
ATTRI BUTE 

USE  CLASSES  FORMED  FROM  A  MIGRATION  OF  THAT  TAG  NUMBER  AND 
ANY  MIGRATION  OF  THOSE  ATTRIBUTE  USE  CLASSES. 


ARGUMENTS : 


INT  * 
INT  * 

INCLUDE  FILES: 


TAG_NO 

STATUS 


CSTDTYP 


ROUTINES  CALLED: 


DELKCMT 

SPRINTF 

UERROR 

DELMIGK 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DELAUCL 

PURPOSE:  DELETE  A  RECORD  FROM  ATTRIBUTE  USE  CL 

LANGUAGE:  C 

SOURCE  FILE:  DELAUCL 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C 


TAG_NO  :=  "INPUT  PARAMETER  1"  ; 
DELAUCL (&TAG_NO,  &STATUS) 


COBOL  —  CALL  "DELAUCL"  USING 

TAG-NO , 

STATUS . 

FORTRAN  —  CALL  DELAUCL (TAGNO, STATUS) 

INPUT: 

INT  *TAG_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
ATTRI BUTE_USE_CL  WHERE  TAG_NO  EQUALS  TO  "INPUT  PARAMETER 

2". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


TAG_NO  INT  * 

STATUS  INT  * 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

VERTMAP 

DELCONI 

DELACON 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DELCIA 

PURPOSE:  FOR  EACH  TAG  NUMBER  ASSOCIATED  WITH  A  CATEGORY  ENTITY 
TO 

LANGUAGE:  C 
SOURCE  FILE:  DELCIA 
SOURCE  FILE  TYPE:  PC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


BE  DROPPED  DELETE  THE  ATTRIBUTE_USE_CLASS  AND 
INHERITED_ATTRIBUTE 

SYNOPSIS 

C  --  DELCIA (&KC_NO,  &RC_NO,  &EC_NO,  &STATUS)  ? 

COBOL  —  CALL  " DELCIA H  USING 

KC-NO, 

RC-NO, 

EC-NO, 

STATUS . 

FORTRAN  —  CALL  DELCIA (KCNO,  RCNO,  ECNO,  STATUS) 

INPUT: INT  *KC_NO  ; 

INT  *RC_NO  ; 

INT  *EC_NO  ; 

OUTPUT: INT  ‘STATUS  ; 

DESCRIPTION: 

ARGUMENTS : 


KC_NO 

RC_NO 

EC_NO 

STATUS 

INCLUDE  FILES: 


EOD 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLAD2 

SQLFCH 

DELIAUC 

SPRINTF 

UERROR 

DELAUCL 

SQLTOC 

SQLOSQ 

SQLAB2 

SQLEXE 


INT  * 
INT  * 
INT  * 
INT  * 
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D0C6R0UP  PS41100  Module  Documentation 


NAME:  DELCM 

PURPOSE:  DELETE  A  RECORD  FROM  CATEGORY_MEMBER 

LANGUAGE:  C 

SOURCE  FILE:  DELCM 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  RC_NO  =:  "INPUT  PARAMETER  1"  ; 

SYNOPSIS 

C  —  DELCM (&RC_NO,& STATUS) 

COBOL  —  CALL  "DELCM"  USING 

RC-NO, 

STATUS . 

FORTRAN  —  CALL  DELCM (RCNO, STATUS) 

INPUT: 

INT  *RC_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
CATEGORY_MEMBER 

WHERE  RC_NO  =  "INPUT  PARAMETER  1". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


RC_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DELCM1 

PURPOSE:  DELETE  A  SPECIFIC  RECORD  FROM  CATEGORY_MEMBER 

LANGUAGE:  C 

SOURCE  FILE:  DELCM1 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


WHERE  RC  NO  =:  "INPUT  PARAMETER  1"  ; 


SYNOPSIS 

EC_NO  =:  "INPUT  PARAMETER  2" 

C 

— 

DELCM1 (&RC  NO, &EC  NO,&STATUS) 

COBOL 

— 

CALL  "DELCM1"  USING 

FORTRAN 

RC-NO , 

EC-NO, 

STATUS . 

CALL  DELCM1 ( RCNO , ECNO , STATUS ) 

INPUT: 

INT  *RC 

NO  ; 

INT  *EC 

"NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
CATEGORY_MEMBER 

WHERE  RC_NO  =  "INPUT  PARAMETER  1". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


RC_NO  INT  * 
EC_NO  INT  * 
STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DELCMP 

PURPOSE:  DELETE  A  COMPLEX  MAPPING  ALGORITHM 

LANGUAGE:  C 

SOURCE  FILE:  DELCMP 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  DELCMP (MOD_ID,  RETR_UPDATE , MOD__INST ,  STATUS) 

COBOL  —  CALL  "DELCMP"  USING 

MOD-ID, 

RETR-UPDATE , 

MOD- INSTANCE, 
RET-STATUS . 

FORTRAN  —  CALL  DELCMP 

(MOD-ID , RETR-UPDATE , MOD- INST , STATUS ) 

INPUT: 

MOD_ID 

RETR-UPDATE 

MOD_INST 

OUTPUT: 

STATUS 

DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SEQUEL  CALL  TO  DELETE 
A  COMPLEX  MAPPING  ALGORITHM. 

IF  SUCCESSFUL,  THE  STATUS  WILL  BE  0. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


MOD_ID 

RETR_UPDATE 

MOD_INST 

STATUS 


CHAR  * 
CHAR  * 
INT  * 

I  NT  * 


ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 


NAME:  DELCMPR 

PURPOSE:  DELETE  A  RECORD  FROM  COMPLETE_RELATION 

LANGUAGE:  C 

SOURCE  FILE:  DELCMPR 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  KC_NO  :=  "INPUT  PARAMETER  2"  ; 

SYNOPSIS 

C  —  DELCMPR (&KC_NO,  & STATUS) 

COBOL  —  CALL  "DELCMPR"  USING 

KC-NO, 

STATUS . 

FORTRAN  —  CALL  DELCMPR (KCNO, STATUS) 

INPUT: 

INT  *KC_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
COMPLETE  RELATION  WHERE  KC  NO  EQUALS  TO  "INPUT  PARAMETER 

1". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


KC_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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DOCGROUP  PS41100  Module  Documentation 
NAME:  DELCPRC 

PURPOSE:  DELETE  A  RECORD  FROM  COMPLETE_RELATION 

LANGUAGE:  C 

SOURCE  FILE:  DELCPRC 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C 


WHERE  RC_NO  :=  "INPUT  PARAMETER  1"  ; 
DELCPRC (&RC_NO,  & STATUS) 


COBOL  —  CALL  "DELCPRC"  USING 

RC-NO, 

STATUS . 

FORTRAN  —  CALL  DELCPRC (RCNO, STATUS) 

INPUT: 

INT  *RC_NO  ; 

OUTPUT: 

INT  * STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
COMPLETE_RELATION  WHERE  RC_NO  EQUALS  TO  "INPUT  PARAMETER 

1". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  r  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


RC_NO  INT  * 

STATUS  INT  * 


ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELCR 

PURPOSE:  DELETE  A  RECORD  FROM  CATEGORY_RELATION 

LANGUAGE:  C 

SOURCE  FILE:  DELCR 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


WHERE  RC_NO  =:  "INPUT  PARAMETER  1"  ; 

SYNOPSIS 

C  —  DELCR ( &RC_NO , &STATUS ) 

COBOL  —  CALL  "DELCR"  USING 

RC-NO, 

STATUS . 

FORTRAN  —  CALL  DELCR (RCNO, STATUS) 

INPUT: 

INT  *RC_NO  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRIPTION: 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
CATEGORY_RELATION 

WHERE  RC_NO  =  "INPUT  PARAMETER  1". 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


RC_NO  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELCRIP 

PURPOSE:  DELETE  CATEGORY  RELATION  WITH  RIPPLE 

LANGUAGE:  C 

SOURCE  FILE:  DELCRIP 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 


SYNOPSIS 

C  —  DELCRIP ( &GEN_EC_NO , &RTN_STATUS ) 

COBOL  ~  CALL  "DELCRIP"  USING 

GEN-EC-NO 
RTN-STATUS . 

FORTRAN  —  CALL  DELCRIP  ( GENECNO , RTNSTATUS ) 

INPUT:  INT  *GEN_EC_NO 

OUTPUT:  INT  *RTN_STATUS 

DESCRIPTION  THIS  ROUTINE  USES  AN  ORACLE  SELECT  STATEMENT  TO 
RETRIEVE  ALL  CATEGORY  RELATIONS  GIVEN  A  ENTITY  NUMBER.  ROUTINE  IS 
CALLED  WHICH,  FOR  EACH  NEW  CATEGORY  RELATION  NUMBER  SELECTED, 
DELETES  CATEGORY  RELATION  AND  CATEGORY  MEMBER. 

THIS  WILL  EMULATE  THE  ORACLE  SQL  COMMAND: 

SELECT  CATMEM . EC_NO  FROM  CATMEM,  CATREL 
WHERE  CATREL. EC_NO  =  : GEN_EC_NO_SQL  AND 
CATREL. RC_NO  =  CATMEM. RC_NO  ; 

ARGUMENTS : 


GEN_EC_NO 

RTNSTA 

INCLUDE  FILES: 


STDIO 

CSTDTYP 

UNIQENO 

EOD 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

PRINTF 

FREGECLST 

ERRRPT 

DRPCRE1 

SPRINTF 

UERROR 

SQLAD2 

SQLFCH 

SQLTOC 

SQLOSQ 

INSGECLST 


INT  * 
INT  * 
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NAME:  INSGECLST 
PURPOSE: 

LANGUAGE:  C 
SOURCE  FILE:  DELCRIP 
SOURCE  FILE  TYPE:  PC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


INCLUDE  FIIES: 


STDIO 

CSTDTYP 

UNIQENO 

EOD 


ROUTINES  CALLED: 
MALLOC 


DOCGROUP  PS41100  Module  Documentation 

NAME:  FREGECLST 
PURPOSE: 

LANGUAGE:  C 
SOURCE  FILE:  DELCRIP 
SOURCE  FILE  TYPE:  PC 
HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


ARGUMENTS : 


DEL  NODE 


TAGUSED  * 


INCLUDE  FILES: 


STDIO 

CSTDTYP 

UNIQENO 

EOD 


ROUTINES  CALLED: 


PRINTF 

FREGECLST 

FREE 
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NAME:  DELCRP1 

PURPOSE:  DELETE  CATEGORY  RELATION  WITH  RIPPLE  WHERE 

LANGUAGE:  C 

SOURCE  FILE:  DELCRP1 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 

DESCRIPTION: 

-  DISCRIMINATING  ATTRIBUTE  EQUALS  TAG-NO 

SYNOPSIS 

C  —  DELCRP1 ( &TAG_NO , &RTN_STATUS ) 

COBOL  —  CALL  "DELCRP1"  USING 

TAG-NO 
RTN-STATUS . 

FORTRAN  —  CALL  DELCRP1  (TAGNO , RTNSTATUS ) 

INPUT:  INT  *TAG_NO 

OUTPUT:  INT  *RTN_STATUS 
DESCRIPTION 

THIS  ROUTINE  USES  AN  ORACLE  SELECT  STATEMENT  TO  RETRIEVE  ALL 
CATEGORY  RELATIONS  GIVEN  A  TAG  NUMBER.  ROUTINE  IS  CALLED 
WHICH,  FOR  EACH  NEW  CATEGORY  RELATION  NUMBER  SELECTED, 
DELETESCATEGORY  RELATION  AND  CATEGORY  MEMBER. 

THIS  WILL  EMULATE  THE  ORACLE  SQL  COMMAND: 

SELECT  CATMEM . EC_NO  FROM  CATMEM,  CATREL 
WHERE  CATREL. TAG_NO  =  :TAG_NO_SQL  ; 

ARGUMENTS : 


TAG_NO  INT  * 

RTN_STAl  u'S  INT  * 

INCLUDE  FILES: 


STDIO 

CSTDTYP 

UNIQENO 

EOD 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLAD2 

SQLFCH 

DELCRIP 

SPRINTF 

UERROR 

SQLTOC 

SQLOSQ 

SQLAB2 

SQLEXE 
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NAME:  DELDAA1 

PURPOSE:  DELETE  A  RECORD  FROM  DB_AREA_ASS I GNMENT  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELDAA1 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C 


DELDAA1 (&DB_ID, & STATUS) 


COBOL  —  CALL  "DELDAAl"  USING 

DB-ID, 

STATUS . 

FORTRAN  —  CALL  DELDAAl (DBID, STATUS) 

INPUT: 

INT  *DB_ID  ; 

OUTPUT: 

INT  * STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
DB_AREA_AS SI GNMENT .  IF  SUCCESSFULLY  DELETED  THE  RECORD  , 
THE  STATUS 

AND  RETURN  VALUE  BOTH  WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


INT  * 
INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 


DB_ID 

STATUS 
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NAME:  DELDAA2 

PURPOSE:  DELETE  A  RECORD  FROM  DB_AREA_AS S I GNMENT  ENITY 

LANGUAGE :  C 

SOURCE  FILE:  DELDAA2 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  DELDAA2 (&DB_ID,  &RT_ID,  &STATUS) 

COBOL  —  CALL  "DELDAA2"  USING 

DB-ID, 

RT-ID, 

STATUS . 

FORTRAN  —  CALL  DELDAA2 (DBID,  RTID,  STATUS) 

INPUT: 

INT  *DB_ID  ; 

CHAR  *RT_ID  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
DB_AREA_AS SI GNMENT ,  IF  SUCCESSFULLY  DELETED  THE  RECORD  , 
THE  STATUS 

AND  RETURN  VALUE  BOTH  WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


DB_ID  INT  * 

RT_ID  CHAR  * 

STATUS  INT  * 

ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELDBA1 

PURPOSE:  DELETE  A  RECORD  FROM  DATA_BASE_AREA  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELDBA1 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  —  DELDBA1 (&DB_ID, &STATUS) 

COBOL  —  CALL  "DELDBA1"  USING 

DB-ID, 

STATUS . 

FORTRAN  -  CALL  DELDBA1 ( DBID, STATUS ) 

INPUT: 

I NT  *  DB_I D  ; 

OUTPUT: 

I NT  * STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
DATA_BAS  E_ARE A 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


DB_ID  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQIAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELDBS1 

PURPOSE:  DELETE  A  RECORD  FROM  DATA  BASE  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELDBS1 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  ~  DELDBS1(&DB_ID,& STATUS) 

COBOL  —  CALL  "DELDBS1"  USING 

DB-ID, 

STATUS . 

FORTRAN  —  CALL  DELDBS1 (DBID, STATUS) 

INPUT: 

INT  *DB_ID  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
DATA_BASE 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 


ARGUMENTS : 


DB_ID  INT  * 

STATUS  INT  * 

ROUTINES  CALLED: 


SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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NAME:  DELDFL2 

PURPOSE:  CONTROLS  THE  DELETING  OF  DATA  FIELDS 

LANGUAGE:  C 

SOURCE  FILE:  DELDFL2 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 

THAT  BELONGED  TO  THE  DELETED  RECORD. THIS  PROCESS  WILL  LOOP  FOR 
EACH  DATA  FIELD  AND  DELETE  THE  TEXT  DESCRIPTIONS,  THE  DATA 
FIELD  AND  CAPTURE  THE  DATA  FIELD  NUMBERS  FOR  REUSABLE  NUMBER. 


SYNOPSIS 

C 

DELDFL2 (&DB  ID,  &RT  ID,  &STATUS) 

COBOL 

CALL 

" DELDFL2**  USING 

FORTRAN 

CALL 

DB-ID, 

RT-ID, 

STATUS . 

DELDFL2 (DBID,  RTID,  STATUS) 

INPUT:  INT 

*DB  ID  ; 

CHAR  *RT 

H 

D 

^  • 

1 

OUTPUT:  INT" 

♦STATUS  ; 

DESCRPIPTION: REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND 
HLI  INTERFACE 

ARGUMENTS : 


DB_ID  I NT  * 

RT_ID  CHAR  * 

STATUS  INT  * 

INCLUDE  FILES: 


EOD 

UNIQENO 

ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLCLS 

ERRRPT 

SQLAD2 

SQLFCH 

DELTEXT 

DRPDF 

ADDRNUM 

SQLTOC 

SQLOSQ 

SQLAB2 

SQLEXE 
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NAME:  DELDFL3 

PURPOSE:  DELETE  A  RECORD  FROM  DATA_FIELD  ENITY 

LANGUAGE:  C 

SOURCE  FILE:  DELDFL3 

SOURCE  FILE  TYPE:  PC 

HOST: 

SUBSYSTEM:  CDM 
SUBDIRECTORY:  NDDL 


DESCRIPTION: 


SYNOPSIS 

C  ~  DELDFL3 (&DB_ID,  &RT_ID,  SDF_ID,  &STATUS) 

COBOL  —  CALL  "DELDFL3"  USING 

DB-ID, 

RT-ID, 

DF-ID, 

STATUS . 

FORTRAN  —  CALL  DELDFL3 (DBID,  RTID,  DFID,  STATUS) 
INPUT: 

INT  *DB_ID  ; 

CHAR  *RT_ID  ; 

CHAR  *DF_ID  ; 

OUTPUT: 

INT  *STATUS  ; 

DESCRPIPTION : 

THIS  ROUTINE  USES  ORACLE  CALLS  TO  DELETE  A  RECORD  FROM 
DATA_FIELD 

IF  SUCCESSFULLY  DELETED  THE  RECORD  ,  THE  STATUS  AND 
RETURN  VALUE  BOTH 

WILL  BE  0  ,  OTHERWISE  -1. 

REWRITTEN  TO  PRO*C  DUE  TO  PROBLEM  WITH  SQL* FORMS  AND  HLI 
INTERFACE 

ARGUMENTS : 


DB_ID  INT  * 

RT_ID  CHAR  * 

DF_IT  CHAR  * 

STATUS  INT  * 

ROUTINES  CALLED: 


STRNCPY 

SQLSCA 

SQLBS2 

SQLSCH 

SQLSCC 

SQLTFL 

SQLOPN 

SQLOSQ 

SQLAB2 

SQLEXE 

SQLWNR 

ERRRPT 
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